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STOP TYPING! 



Get Instant Enjoyment from SoftSlde's programs with SoftSide's 
Cassette Version (CV) and Disk Version (DV)! 

Our media editions let you spend less time TYPING — and more time USING the 
fine software that SoftSide brings you every month. And we let you choose the 

version you want. 



Cassette Version (CV) 

SoftSlde's Cassette Version (CV) offers you an inexpensive way 
to enjoy our programs without fiours of typing or fiunting for 
errors. Ail programs are tested and ready to go! 

CV gives you the programs offered for your system each month 
in SoftSide on a tape, pius the magazine itseif — 
12 magazines and 12 tapes per year for just $75. 



Disl( Version (DV) 






DV contains a BONUS program for your system on the disk In 
addition to the other programs available that month. Only the 
documentation for the bonus programs will appear in SoftSide 
magazine, NOT the code. The bonus programs will be of every 
conceivable type — multiple and Machine Language programs, 
modified languages, ongoing modular programs and software 
so extensive, It would take an entire issue of SoftSide just to 
print the code. 

Feel like you're missing something? You are. Don't wait to take 
advantage of our offer — 12 magazines and 12 disks for just 
$125 a year. For orders outside the U.S., add $50. For your 
convenience we also offer an instaliment payment plan for 
MasterCard and VISA holders: Pay just $32.50 per quarter (a 
total of $130 which includes a $5 billing charge). 

To order, use the card provided In this Issue. 
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VIDEO COMPUTER SYSTEM 

• Create excitement with your liome TV. Sharpen 
mental and physical coordination with a full library of 
challenging, sophisticated video games. • Bright, 
crisp color (on color TV). • Realistic sound effects 
(through the TV speaker). • Interchangeable con- 
trollers and cartridges to enjoy the full range of Video 
Computer System games. • Difficulty option 
switches so the games get harder as you get 
better. • Special circuits to protect TV. • System 
comes with Combat Cartridge, Joystick and Paddle 
Controller, AC adaptor and TV switch box. • Similar 
to coin operated games. • Used with player's own 
TV set. 

SUGGESTED RETAIL $199.95 



Asteroids 

Warlords 

Breakout 

Superman 

Home Run 

Bowling 

Canyon Bomber 

Backgammon 

Championship Soccer 

Casino 



OUR PRICE 

$179.99 




1 ■ Missile Command 


► ■ Othello 


■ Basketball 


■ Game Cartridge Storage Unit 


■ Indy 500 


■ Video Chess 


■ Video Olympics 


■ Air-Sea Battle 


■ TIc-Tac-Toe 


■ Golf 



2/4/6 HOUR VIDEO TAPE 




VMS 



OUR PRICE 

809.99 



SUGGESTED RETAIL $899.95 



Space Invaders 
Video Pinball 
Adventure 
Night Driver 
Circus Atari 
Maze Craze 
Football 
Video Checkers 
Dodge 'Em 
Slot Racers 

• New 6-hour "Super Long Play" video tape recorder 
with soft touch controls. • Switchable to "Long 
Play" 4 hour and Standard 2 hour recording. • Com- 
patible with other 2/4 and 2/4/6 hour VHS systems. 

• Record programs off the air or record home 
movies with an optional TV camera. • Automatic 
tape threading. • Hot pressed ferrite video 
heads. • Direct drive video head cylinder motor. 

• Azimuth recording system. • Built-in UHF and 
VHF tuner allows recording one station while viewing 
another. • Tracking control. • tOCy solid state in- 
tegrated circuitry. • Pause mode; complete with 
remote pause control. • Auto-digital memory 
counter provides automatic stop while rewinding. 

• Complete with all accessories for hookup to all 
types of TV sets and antennas. 



INTELLIVISION 



• The video television system which provides an 
endless variety of game play and 
involvement. • Compatible with any color TV 
set, • Utilizes a full selection of Mattel game and 
learning cartridges. • Each cartridge comes with 
overlays which fit directly over the two individual 
hand controllers for easy game play decisions (no ad- 
ditional controllers). • Includes Las Vegas 
Poker/Blackjack cartridge. • Objects of the game 
screen can be maneuvered in 16 different directions 
by the object control disc. • 16-bit microprocessor 
provides a full range of sound effects, music, color 
and an extraordinary high level of resolution. 

SUGGESTED RETAIL $299.95 



OUR PRICE 

$279.99 
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Astrosmash 
Space Armada 
NASL Soccer 
Auto Racing 



Adventure 
Boxing 
NHL Hockey 
Horse Racing 



Space Battle 

NFL Football 

Tennis 

Las Vegas Roulette 



Sea Battle 
NBA Basketball 
PGA Golf 
Backgammon 



■ Armor Battle 

■ Major League Baseball 

■ U.S. Team Skiing 

■ Checkers 
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Escape from the Dungeons 
of the Gods 

by Ray Sato 

Translations by Alex Lee and 

Rich Bouchard 

Encryption modifications by Rich 

Bouchard, William Kubeck, and 

Alan J. Zett 

Prepare yourself for subterranean 

adventures as you search for treasures, 

fight monsters, and try to retrieve the 

"Chest of the Gods." You'll appreciate 

the encrypted program listing which keeps 

its secrets hidden until you play. 
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SWAT 

by Jon Voskuil 

Translations by Alan J. Zett 

This valuable debugging aid will allow you 

to check your typing against printed 

listings and pinpoint any errors you may 

have made. 



by Allen L. Wold and Fred D'Ignazio 
The authors revisit the Golden Age of 
Animated Film, when Walt Disney was 
king. They trace the rise of the computer, 
as cartoonist's assistant and special effects 
artist, in the movies today. 
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The Big Crash 

by R. J. Green 

Does your spouse spend endless hours at 
the computer? Do you ever wonder what 
the results might be? If so, read on. 
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Sensuous Programmer 

by "J" 

"J" is at it again. This article is the first 
in a series on converting BASIC programs 
from one system to another. 
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Information Inundation 
and the LaserDisc 



by Randal L. Kottwitz 



It's everywhere! It's everywhere! 
Every day more and more information 
cascades into our lives. Each of us is in 
the process of becoming a large, walk- 
ing database, ready for access from 
any number of "on-line" inputs and 
outputs. Take a moment to survey the 
environment in which you sit reading 
this magazine. How many inputs are 
just sitting there, openly grasping for 
your attention or waiting for the 
slightest motion on your part to pour a 
tidal wave of information your way — 
the telephone, the television, your 
computer, magazines, books, 
newspapers, advertising fliers, ad in- 
finitum. It seems that everyone is 
fighting to receive our attention, 
regardless of our desire to give it. The 
typical American is approached and 
asked to spend money an average of 
752 times per day. More than one com- 
puterist, famiUar with the jargon, has 
asked how soon additional RAM 
modules will be available for the 
human brain. Obviously, the time is 
long past due for us to take a firmer 
grasp on the information available to 
us and find more efficient methods for 
its organization and utilization. 

Enter — The Videodisc. The more 
accurate phrase would be, "Enter into 
the consumer marketplace — The 
Videodisc." Industrial versions of the 
interactive videodisc technology have 
been in use since 1978. However, the 
consumer market is only now on the 
verge of seeing prices drop to an af- 
fordable level. As with any piece of in- 
formation technology, the major lag in 
its penetration of our everyday Hfe will 
be the inevitable problem of software 
development. 

I'll not attempt a detailed report on 
the current state-of-the-art. The 
available information could easily fill a 
complete issue of SoftSide. However, 
here are a few definitions and 
specifications to focus this discussion: 
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The videodisc system format to which 
I'm referring is the Laser Vision for- 
mat. The less expensive CED 
(Capacitance Electronic Disc) and 
VHD (Video High Density) formats 
currently have substantially limited ap- 
plications due to their reduced random 
access capabilities. Information is 
stored on the LaserVision discs in the 
form of pits on an injection-molded, 
aluminum plated core encased in a pro- 
tective, transparent plastic disc. The 
bits of information encoded in the pits 
are read by reflecting a low-powered 
laser off the reflective core. One side of 
a disc has a capacity of 54,000 screens 
of still-frame or 30 minutes of con- 
tinuous video programming. (Current 
manufacturing Hmitations decrease the 
controllable program area by approx- 
imately ten percent.) That translates in- 
to an available digital storage capacity 
of 10" bits of information. 

Currently, laserdiscs are Umited to 
Read Only capabilities. However, one 
Japanese company has unveiled a 
working prototype of a laserdisc 
recorder and the development of such 
technology seems inevitable. Due to 
the physical "burning" of the pits by a 
slightly more powerful laser, laserdisc 
"writing" will be permanent in nature. 
However, the staggering amount of 
storage available on a single disc and 
the high-speed random access 
capabilities of laser technology will 
considerably mute the impact of this 
limitation. 

The pricetag for adding the 
necessary hardware (currently 
available for the Apple and ATARI® 
computers) to your system can run 
from $900 to several thousand dollars. 
The price of handler software on 
magnetic media varies according to its 
complexity. What little laserdisc soft- 
ware is available seems to be set- 
tling in the $20 to $30 range. All of 
these figures will be subject to fluctua- 
SoftSide 



tions as the new industry finds its niche 
in the marketplace and the technology 
costs can be spread over the masses. 

The substantial advantage which 
positions the laserdisc so firmly in our 
future is its abihty to integrate more 
forms of information than ever before. 
Microcomputers brought their own 
brand of information control to the 
video screen in their manipulation of 
digital information. The major tool 
they've previously lacked has been 
the ability to control the presentation 
and handling of information in a non- 
digital (analog) format. The laserdisc 
delivers the best of both worlds into the 
hands of the microcomputer by offer- 
ing common storage for digital and 
analog signals. Now, the micro has the 
capability to reach onto one storage 
medium, spinning at 1800 RPM, move 
the information which it's been look- 
ing for to the magnetic diskette and to 
control the flow and presentation of 
analog video/audio signal between the 
videodisc and the monitor. 

For example: A single videodisc 
could carry a multi-volume cooking 
course presenting three major 
categories of information. In the first 
category, portions of the storage area 
could be devoted to live, video, action 
demonstrations of cooking techniques 
to be watched at full speed with sound, 
or in single frames or slow motion 
without sound. The dual soundtrack 
could carry voice-over descriptions of 
the demonstrations on one channel and 
related information on spice selection, 
chef's tricks, etc. on the other. Second- 
ly, other areas of the storage space on 
the disc could carry digital program 
data for weights and measures conver- 
sion programs, diet customization pro- 
grams and other software to be loaded 
into the RAM of your computer. The 
third area, still frame video informa- 
tion controlled by and integrated with 
microcomputer software, has fewer 



models to emulate. A quiz on the cook- 
ing techniques could be administered 
by the microcomputer with wrong 
answers automatically cuing review 
frames of demonstrations on other 
parts of the disc. Still frames of effi- 
cient kitchen designs could be called to 
the screen, digitized by the computer, 
and then modified by you to fit your 
existing floorplan. If there were a por- 
tion of one of the demonstrations you 
had a hard time understanding, you 
might be able to stop it at that point, 
ask for further information and cue up 
a more detailed explanation/presenta- 
tion of the information elsewhere on 
the disc, complete with a ques- 
tion/answer session to assure that you 
understood the information before 
returning you to the more general 
demonstration. 

You may very well think I've got my 
head in the clouds and am telling you 
about a technology which will be 
available in five or ten years. In truth. 
Master Cooking, an interactive laser- 
disc with chef Pierre Franey and food 
critic Craig Claibourne, is currently 
available and utilizes many of the 
techniques described above. It is not 
designed for control by a microcom- 
puter and therefore does not incor- 
porate the computer software 
capabilities. However, all of the 
features I've mentioned are possible 
now and are waiting only for someone 
to utilize them and bring them to 
market. 

There is no doubt that the laserdisc is a 
major step forward, bringing the infor- 
mation age to our doorsteps. It will 
have a powerful impact on almost 
every kind of information we now use 
in our daily lives and will give us access 
to information we never dreamed 
useful before simply because it was too 
difficult to bring to practical applica- 
tion. The question must be asked: 
"Which brings more to the handshake 
of computer and laserdisc — the 
microcomputer, with its controlling 
capabilities or the laserdisc with its 
storage capabilities?" The answer to 
that question will determine which of 
the two appliances will become part 
and parcel of the other in the future. 
Sony® has announced production of a 
laserdisc player utilizing a Z-80 
microprocessor with IK of RAM. How 
soon will that RAM become expan- 
dable to a point that the resident con- 
trolling microprocessor on the laserdisc 
player starts to take on attributes of the 
microcomputer as we now know it? In- 
deed, the principal information ap- 
pliance in the home of the future may 
well be known as "laserdisc" rather 
than "computer." © 



How would you like 




Each month SoftSide publishes a translation of a program from a 
previous issue. Since the Translation of the Month has been so well 
received, we're offering an even greater incentive than ever before to 
those of you who put the necessary effort into producing a good transla- 
tion for one of the other computer systems we support. 

A one-year subscription to the Disk Version of SoftSide, or an 
eighteen-month subscription to the Cassette Version is the incentive. 
That's a value of $125 for the disk subscription, or $112.50 for the 
cassette subscription; a handsome reward for a winning translation. 

What do we look for in a translation contest winner? Here are some of 
the most important qualifications: 

■ Your entry should be a translation of one of the main programs from a 
past issue. K-Byters, One-Liners, and other short programs don't qualify 
for this contest. (We will, however, consider translations of shorter pro- 
grams in their own right, especially if they contain unique features or 
enhancements.) In general, we are looking for translations of programs 
which are a CHALLENGE to translate. Some of the listings we publish 
are written in more or less "generic" BASIC, which can be typed into 
another computer with few changes. Although these require the least ef- 
fort to translate, they are also the least likely prospects for Translation 
Contest winners. We'd much rather see translations which require con- 
siderable creativity and ingenuity to rewrite and adapt. 

■ Your translation should be thoroughly tested and completely bug- 
free. Just converting program lines doesn't automatically ensure a 
workable translation. Be sure to use-test your translation as carefully as 
you would test a program you had written entirely from scratch. 

■ Your translation should take advantage of the unique features of the 
computer for which it is written. The objective of a translation is not to 
simply duplicate the operation of the original program in a mechanical 
way. Rather, the translation should be written in such a way that it "fits" 
the capabilities and conventions of its host computer. This is especially 
true of programs which use graphics, and should be kept in mind for 
such minor things as keyboard layout as well (use of such special keys 
as arrows, ESC, CTRL, CLEAR, etc.). Also be careful with screen for- 
matting; a word that spills over into the next line, because of a PRINT 
statement that wasn't properly rewritten, betrays such carelessness that 
we'll probably reject your translation automatically. 

■ Your entry should incorporate any improvements and enhancements 
that you can add to make it an even better program. Don't feel that you 
have to limit yourself to the boundaries of the original. (On the other 
hand, don't go overboard and destroy the character of the original by 
completely rewriting it!) An enhanced translatibn is much more likely to 
catch our attention than a line-for-line duplicate, and it will have more 
value to our readers. 

It's not necessary to include the kind of extensive documentation with 
your translation that we require of original programs. If most of the 
originally published documentation applies to your translation, simply 
say so. You should, however, for the benefit and interest of other pro- 
grammers, include descriptions and explanations of any changes or 
enhancements you've made. 

All Translation Contest entries must be submitted on disk or tape, 
with documentation in printed or typed form. Media will be returned only 
if accompanied by a self-addressed, stamped envelope. 
Send to: SoftSide Translation Contest 

6 South Street 
iVIilford, NH 03055 



SoftSide 



INPUT 




Dear SoftSide, 

I would like to comment on your 
magazine. It would have to be one of 
the best. I had not heard of SoftSide 
until 2 weeks ago. My school had an 
Apple II + donated to them earlier this 
year. Right away, I knew I was in- 
terested in microcomputer program- 
ming. Ever since then I have been 
writing and programming my own pro- 
grams in BASIC. I am only thirteen 
but have been sincerely considering be- 
ing a professional microcomputer pro- 
grammer. Your magazine has helped 
me make up my mind. I would like to 
start a cassette subscription, but I think 
it is educational programming in your 
programs, looking at the break up of 
each program and learning how each 
piece works. I also think it is a good 
idea to have a magazine like this so you 
can learn and have fun at the same 
time. I would like to thank you for 
helping me make my decision and en- 
couraging computer programming for 
people of all ages. 

A lot of people in our school think 
of computers mainly for games, 
games, games. I sincerely regret this 
and am hoping that they come to 
realize that computers are excellent for 
anything and everything. I think this is 
the greatest thing that has come into 
my programming Ufe. Thank You. 

Brian Vrshek 
Mt. Prospect, XL 



Dear SoftSide, 

I am just writing to tell you what a 
good magazine you publish. I think 
that SoftSide is the best computer 
magazine I've ever seen, but there is 
one complaint I have about your 
magazine, the problem is that you 
blame all of the errors in your pro- 
grams on the printer, but the fact is 
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that a good printer will not drop lines 
or leave out parts of a line. In SoftSide 
you publish good quality programs, 
but some of them don't work after typ- 
ing them, I'm not blaming it all on you 
guys at SoftSide, because I'm not a 
very good typist and I do make a lot of 
typing errors, but after I go over the 
programs three or four times for 
typos, the programs still don't work. 
Some of the programs that don't work 
are: Convoy, Kidnapped, Quest 1, and 
Titan. Convoy doesn't work at all. 
Quest 1 keeps me in room for the 
whole game, and Titan has an error in 
the buying and selling routine. 

Although I have this complaint it 
will not stop me from getting another 
years subscription when this one runs 
out because no other magazine offers 
good programs, articles, and adver- 
tisements, at least not as good as yours. 

Now that I'm through complaining I 
will give you a complement or two. I 
own an ATARI® and there aren't very 
many magazines that offer programs 
or games for ATARI® users, in fact 
you are just about the only one that 
does. I have noticed that a lot of the 
people writing in are complaining 
about your format (combined format) 
I personally like it better this way, 
because I can look at and compare 
other BASICS to ATARI®'s. I think 
that it is up to you how you make your 
magazine. 

Walter Lavelle 
San Jose, CA 



Editor's Reply: Take a look at the 
SWAT program in this issue — we at 
SoftSide think the use of this utility on 
every program we publish will really 
help find errors. As for the bugs, we 
try to kill as many as possible before 
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they slip into the magazine. Some con- 
tinue to slip by, but we do our best. We 
publish a "bug report" in the next 
possible issue. Have patience, the bugs 
are few and far between. 



Dear SoftSide, 

In reviewing the Radio Shack 
Acoustic Modem I, Lance Micklus ac- 
curately described the inadequacies of 
this piece of substandard hardware, 
but did not offer a solution to those 
already owning this device. 

My neighbor, once a die-hard TRS- 
80® owner, was in the same boat. Hav- 
ing invested a bundle in this system, he 
could neither afford to rectify his 
mistake nor divulge to his spouse that 
his hardware wasn't exactly "up to 
snuff" — most wives think computers 
are less than a necessity anyway! 

To overcome his problem, we had 
the phone company install a handset 
for the hearing impaired. This unit has 
a small thumbwheel in the handle and 
can be used to increase the volume. 
Since then, he has had no problems — 
so, if your modem is a little deaf and 
your checkbook a little light, call "Ma 
Bell." 

I was also amused with Lance's saga 
on Route 17 in northern New Jersey. 
It's a shame he didn't know about 
SOFTWARE CITY in River Edge, ap- 
proximately two miles from the Radio 
Shack Computer Store and COM- 
PUTER UNIVERSE. They have one 
of the largest inventories of software 
for the TRS-80®, ATARl®(which 1 
own), Apple, PET and VIC computers 
I've discovered so far. And, they're 
discounters who backup what they sell! 
Had he visited them, his ego would not 
have been bruised — they probably 
have everything he offers (no, I don't 
own stock in the store). 



Anyway, I hope my little tip on 
"hearing-impaired modems" will be of 
help. Keep up the good work... Your 
magazine is pretty good (It would be 
great if your bug-control were just a lit- 
tle better.) 

Paul Pettennude 
Wayne, NJ 



Editor's Reply: Thanks for sending in 
the information I'm sure it will be of 
help to some of our SoftSide readers. 



ANSWERS TO QUESTIONS 
SUBMITTED IN INPUT 



From: 

Thomas Bank II 
Mechanicsburg, PA 

Question: 

"If I were to send you a program by 
any chance would you put it on the DV 
and not in the magazine? (1 am not a 
DV subscriber.) Also, your ad states 
that for a translation you would give 
me a $100 Software Certificate if you 
use the translation. If I sent you my 
translation of a program, you used it, 
and I got the certificate, could I use the 
certificate and $25 out of my pocket to 
get the DV subscription?" 



Answer: 

Yes, your translation could possibily 
be used for the DV program but it 
might also appear in the magazine. As 
for the question about the Software 
Certificate, yes, you can apply it to a 
DV subscription, in fact in this issue 
you will see a new ad in reference to 
translations. We are encouraging 
translations of programs in the back 
issues of SoftSide and instead of the 
Software Certificate we are offering a 
free, one-year subscription to SoftSide 
DV, a $125.00 value or an eighteen 
month CV subscription valued at 
$112.50. For you who are already 
subscribers this will extend your 
subscription . 

From: 

Michael Mahaffey 
Manhattan, KS 



Question: 

I purchased your November '81 DV. 



I tried it in my Model III TRS- 
80® without success. I tried it on a 
friend's Model III and it still would not 
boot up. However, it works very well 
on a Model I. I have examined your 
advertisement for the DV and nowhere 
is there any mention that the DV is on- 
ly for the Model I. I suggest you either 
mention the fact the DV is Model I on- 
ly, change the DV to be readable by the 
Model I and the Model III, or put out a 
separate DV for the Model III. 

If there is anything I can do to get 
the DV to boot on my Model III please 
tell me. Otherwise, I am going to have 
to get a Model I friend to read the disk 
and copy it to a disk I can read. 

I have enjoyed your magazine very 
much. I have copied some of the pro- 
grams onto my machine and modified 
them. I would Hke to ask one thing. 
WHY AREN'T THE LINE 
NUMBERS EVENLY NUM- 
BERED!!! I can't imagine anyone 
these days that doesn't have some kind 
of renumbering program. How much 
trouble could it be to renumber a pro- 
gram before submitting it?? How 
much trouble could it be for you to 
REQUIRE submitted programs be 
evenly numbered. It makes it TEN 
TIMES EASIER to turn on auto line 
numbering when typing in a program 
from a magazine and just worry about 
typing the program statements!! You 
can't type in a program with the auto 
on and change line numbers as you go 
because the line number that you 
changed will probably be jumped to 
from somewhere else in the program. 
PLEASE, PLEASE!! publish pro- 
grams numbered evenly! 

Answer: 

Michael, you and many other Model 
III DV Subscribers will be happy to 
know that as of the May '82 issue we 
are making available both a Model I 
and a Model III Version of SoftSide 
TRS-80®DV. All TRS-80®DV 
subscribers will be notified of this in 
the May disk mailing. Subsequent 
issues will be sent on Model III Disk to 
those who request this. 

In reference to your question about 
evenly numbered lines, programs sub- 
mitted to us with evenly numbered 
lines are published that way. In our 
author's guide we encourage authors to 
use even line numbers but not all of 
them do. For many reasons we do not 
alter their programs. The cost of staff 
time required to renumber all the pro- 
grams published each month would be 
phenomenal and the chances of 
creating errors in the process would 
also be likely. Thanks for the input. It 
is always appreciated. O 
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K-Byters 

ANOTHER 

PROGRAMMING 

CHALLENGE 



Some time ago SoftSide began 
inviting its readers to submit "One 
Liners" — self-contained single- 
line programs for the TRS-80®, 
Apple, or ATARI® which would 
provide a continuously changing 
graphics display. The response has 
been excellent, and we're still 
looking for more submissions. 

Now we have a new challenge 
for you as well: "K-Byters." A 
K-Byter is a BASIC program 
which fits into IK (1024) bytes of 
program memory. There aren't 
any restrictions on the nature of 
the program, other than its size. It 
can be a graphics display, a game, 
a mini-adventure, or anything 
your imagination and program- 
ming skills can create. 

Note that the program does not 
have to RUN in IK of memory; it 
can use as much RAM for arrays, 
strings, graphics mapping, etc., as 
you need. We'd prefer that it be 
able to run in a 16K system, but 
this is not an absolute limit. 

Here then are the official rules: 

1. The program must be written 
for the Apple, TRS-80®, or 
ATARI®, entirely in BASIC 
(although it may create and call 
Machine Language routines). 

2. The program must occupy no 
more than 1024 bytes of memory 
before running. 

3. The program must be sub- 
mitted on tape or disk, accom- 
panied by your name, address, 
phone number, and a brief written 
description of its operation. 

4. The tape or disk will be 
returned only if accompanied by a 
self-addressed envelope with ade- 
quate postage AFFIXED (do not 
send money). 

5. Winners will have their pro- 
grams published in SoftSide and 
will receive a $10 software cer- 
tificate for their programming 
excellence! 

Send submissions to: 

K-Byters, c/o SoftSide 
6 South Street 
Milford, NH 03055 



HINTS & ENHANCEMENTS 




ATARI® MICROTEXT 

ATARI® Microtext is great! The April issue of 
SoftSide came in the mail a few days ago and I 
just got through keying in the third and last (1 
hope you reconsider) part of this mini- 
wordprocessor. After working with the program 
a short while I thought of a few brief 
enhancements which I'd like to pass along to the 
other readers. 

The first has to do with alerting you when you 
are approaching the dimension limits of T$ — 
this is the string that holds all the text. Line 120 
shows T$(14000) — I have a 32K system with a 
disk drive so I've set mine to 1 1000. Try the 
following: 

ADD TO THESE LINES 

130 SETCOLOR 2,0,12:SETCOLOR 

1,0,4:SETCOLOR 4,0,12 

4000 SETCOLOR 4,0,12 

ADD THIS LINE 

6010 IF LEN(T$) > 10900 THEN 

SETCOLOR 4,3,4 

What this does is set the background and 
border of the TV screen to white and the 
characters to black, which is much easier to 
see (also see SoftSide, February 82', page 
68-POKE YOUR ATARI®). Then every 
time a line of text is added T$ is checked. If 
it exceeds 10900, the border surrounding 
the screen turns red. This gives you time to 
finish your thought and save the text to tape 
or disk. When you have saved the text the 
screen returns to normal. 

The second has to do with saving a little 
bit of memory. Lines 4075-4090 & 
5075-5090 are identical. What I've done is 
combine them into a short subroutine 
which can be called from either section of 
code. A little more can be saved if you 
don't care for the tape or disk option (Lines 
4000 & 5000). By going with the disk only, 
the save and load sections of code would 
look like this: 

4000 GOSUB [newly written subroutine] 

4100 OPEN #2,8,0,F$ 

4210 - 4400 [remain the same] 

5000 GOSUB [newly written subroutine] 

5100 OPEN #2,4,0,F$ 

5210 - 5400 [remain the same] 

That's it! Now get busy and send in some 
other enhancements. 

Al Chilcott 
Greensboro, NC 

ATARI® OUTER SPACE ATTACK 

Sheldon Leemon's Outer Space Attack 
for the ATARI® in the March issue has cer- 
tainly delighted the nine-year old gaming 
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freak in our household (and the adults 
also); however, he probably didn't count on 
klutzes such as myself who manage to send 
their player off the screen into a program 
crash. Consequently 1 added an error trap 
in line 90 which fixes it and keeps me 
sailing: 

90 HP = HP + 4*(STICK(0) = 7)-4'* 
(ST1CK(0)= 1 1):TRAP 90: POKE 
53248,HP:TRAP 40000 

I look forward to each new issue of Soft- 
Side with keen anticipation and especially 
thank you for the SoftSide Database (a real 
god-send!). 

Edsel Mikkola 
IVIinneapolis, MN 

TAB FOR THE ATARI® 

For those of you who have been 
frustrated by ATARI® 's lack of a TAB 
command, here's an idea. You probably 
already know that POKEing location 85 
will place the cursor at the specified col- 
umn, but that doesn't help when you are 
trying to format output to a printer. 1 have 
discovered a simple means to simulate a tab 
function which works with both the screen 
and printer. It only takes one line of code 
and translates easily. 

10 DIM TAB$(40):TAB$ = " (40 spaces) " 

Thereafter, Tab functions can be called 
as in the following example: 

20 FOR X = 1 TO 30 STEP 5 

30 PRINT TAB$(l,X);"This is TAB";X 

40 NEXT X 

Note that LPRINT can be substituted for 
PRINT in line 30. 

I hope your readers can put this idea to 
good use. 

Jim Alley 
Interlochen, Ml 

WORD WRAP-AROUND 

Here is a subroutine for the Apple 11 that 
will automatically prevent word wrap- 
around on the Apple's 40-column screen. 
This is useful when, as is often done, one 
desires to print a long message in one 
PRINT statement. 

In order to use the subroutine, set the 
variable KK$ to the unformatted string, 
then call the subroutine. An example would 
be: 

600 KK» = "THE RAIN IN SPAIN FALL 
S MOSTLY IN THE PLAIN." 
SoftSide 



610 GOSUB 50000 
620 END 

The subroutine may, of course, be 
renumbered to fit any particular program. 
Here it is: 

49999 REH PRINT FORMAT SUBRTN 

50000 PT = 1 
50010 C = 
50020 WD* = °" 

50030 1% = mU (.KK»,PT,1):FT = 

PT + l! IF PT > LEN m.%) BOTO 

50110 

50040 IF n < ) " " THEN mi = 

HD$ + Xi: 60TQ 50030 

50050 IF C + LEN (WD») = 40 THEN 

PRINT HDt;: GOTO 50010 

50060 IF C + LEN (WDt) = 39 THEN 

PRINT mi: SOTO 50010 

50070 HD$ = WD$ + " " 

500S0 C = C + LEN mi): IF C ) 

40 THEN PRINT :C = LEN («D 

$) 

50090 PRINT WD»; 

50100 BOTO 5OO20 

50110 IF C + LEN (WD$) > 40 THEN 

PRINT 

50120 PRINT HD«; RIGHT* (KK*.l): 

RETURN 

Fred Condo 
Covina, CA 

TRS-80® MAZE SWEEP 

The following changes will update and 
save to disk the top ten scores for the TRS- 
80® program. Maze Sweep (February, 
1982). Lines 30 and 32 are changed by the 
routine at lines 2200-2300, so lines 30-35 
must have exactly 21 spaces between each 
set of quotation marks. (There are also ex- 
actly 21 spaces between the quotes in line 
2165.) This allows room to POKE the name 
and high score directly into program 
memory, where those strings are stored. 
This method is easily adaptable to other 
similar games, and could be adapted for use 
with cassette systems as well. 

20 DII1B,B1,B2,FC,FL,I,I$,J,K,H,N$,P,0,SC 

(ll),SCt(ll),T,Z,M(13/,P(200),VP(ll),Pn 

11) 

30 SC*(10)="Ti« PiercE 7140":SC$(9 



)="Rik Pierce 7090'!SC«(S)='Tiioth 
y Pierce i850"!SC»(7)="Jaies Baron 

i640":SCt(6)="Arnie Gross 6530":S 
C»(5)="Rik 6380" 

32 SC»(1)="Rik Pierce 6360'!SC$(3) 
="Tii Fierce 5930":SC»(2)="Hillie 

5740":SC»(l)='Rik The Great 
5180" 
35 SC«(11)="NAZS«EEP 
37 FDR I=1T011:VP(I)=VARPTR(SC»(I)):P1(I 
)=PEEK(VP(I)+1)+PEEK(VP(I)+2)I256:SC(I)= 
ML(RIGHT$(SC«(I),4)):NEn 
400 PRINT818,SC$(10);:G0SUB9000:FQRI=1T0 
26 

2060 SC»="";PRINTS474,CHR$(206);!PRINT84 
76, ; :LININPUTSCi: IFSC»=""THEN2060 

2063 CLS:FOR1=2TOLEN(SC$): 'Alters to loH 
er case 

2064 IFH1D<(SC», 1-1,1)=" "DRUID* (SC$, 1,1 
)=" ■THEN2067 

2065 IFI1ID<(SC«,I,l)<"["THENI1ID<!SC$,I.l 
)=CHRt(ASC(«ID»(SC»,I,l))+32) 

2067 NEXT 

2068 I=16:IFSC<1000THENI=17 
2070 SCt=LEFT$(SC$,15) 

2075 SC$=SC»+STRINGi(I-LEN(SC»),32)+STRt 

(SO 

2120 PRINT SC*(I) 

2141 IFFLTHENPRINT'Press =S= to save new 

scores" 

2145 I»=INKEY$ 

2150 IFI»=CHR$(13)THEN70 

2160 IFI$="S'THEN2180 

2165 IFI»=CHR» (31 ) THENF0RI=1T09: BC» ( I ) =" 

»;SC{I)=0:NE)(T:PRIN 

T3960,"flll but high score CLEARED" ):FC=1 

2170 G0T02145 

2180 IFFC=OTHEN2197ELSEPRINT8704,CHR$(31 

)" 

So as not to lose the original 

HIGH scores, do you want to 

change the nane?" 

2185 U=INKEY$:1FI$=""THEN2185 

2190 IFI$="Y'THENPRINT8704," 

iOrig filespec: "SC»(11)" 

What is the new na«e";!lNPUTSC»(ll) 

2195 SC${11)=SC«(11)+STRING$(21-LEN(SC$( 

ID), 32) 

2197 PRINT376e,CHR$(31)" 

Adjusting the progras..." 

2200 FDRI=1T011 

2210 SC»(I)=SC*(I)+STR$(SC(I)) 

2220 FORY=OT020:POKEPl(I)+Y,ASCiniD*(SC* 

(I),Y+1,1)) 

2230 NEKTY 

2240 NEXT I 

2245 PRINT'Saving "SC$(11) 

2250 SMtSt*U\l:RUH 

2300 RETURN 

Rik Pierce 

Brooklyn, NY S 



ATTENTION 

AUTHORS 

SoftSide Publications is actively seeking programs, ar- 
ticle and review submissions for the TRS-80®, Apple and 
ATARI® home computers. 
• Programs SoftSide has alvi/ays been the leader in the 
field of BASIC software. BASIC remains our specialty. 
However, with the advent of Disk Version (DV), we can 
now also offer an outlet for Machine Language and 
multiple language programs which do not lend 
themselves to printed versions. Games, utilities and 
educational software, as well as any other applications 
for the home computer user are preferred, although we 
will consider virtually any type of program. Hybrid mixes 
of articles and programs are also welcomed. 

Please be sure to include full documentation of 
subroutines and a list of variables, also a brief article 
describing the program. 

• Reviews Well written, informed reviews of all software 
for the systems we cover are a regular feature of Soft- 
Side. Reviewers should take into consideration all 
aspects of a particular software package, from speed of 
execution to programming creativity to the estimated 
length of time that the product will hold the customer's 
interest. 

• Articles We welcome article submissions of all types, 
but prefer those specifically geared to the home com- 
puter market. We give our readers information as a first 
priority, but vary our content to include some humor and 
commentary. 

All text, including documentation and descriptive ar- 
ticles for programs should be typewritten and double- 
spaced. Extra monetary consideration will be given to ar- 
ticles and reviews submitted on machine-readable media 
(Scripsit, Super-Text II, etc.). Programs should be submit- 
ted on a good cassette or disk. TRS-80® BASIC programs 
should function under both Level II and Disk BASIC. 



Please be sure to pack your cassettes and disks carefully 
and to Include your return address and phone number. 
Send to: SoftSide Publications 

SUBMISSIONS DEPARTMENT 
6 South Street 
Milford, NH 03055 
We regret that due to the volume we receive, w/e are unable 
to return submissions. 

Be sure to send for our FREE AUTHOR'S GUIDE. It further 
outlines the Specifics of our submission procedure. 

TRS-80 is a registered trademark of Tandy corporation. 
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HAVE WE 

GOT A PROGRAM 

FOR YOU IN'82 

Over 150,000 computer owners and novices attended the 1981 
National Computer Shows and Office Equipment Expositions, 
and more than a quarter of a million are expected to be at the 
1982 shows. 
Each show features hundreds of companies using thousands 
of square feet of display space to showcase and sell millions of dollars 
worth of micro and mini computers, data and word processing equipment, 
peripherals, accessories, supplies and software. 

Under one roof you'll see — and be able to buy — all of the hardware 
J and software made by every major computer manufacturer for busi- 
\^ ness, industry, government, education, home and personal use. 

The show includes computers costing as little as $100 to com- 
puters selling for $150,000. 

Don't miss the coming of the new computers — show up for 
the show. Admission is $5 per person and $3 for children. 
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OUTGOING MA\i 




It doesn't seem possible that another 
month has passed. So many things have 
taken place in a month's time. First, we 
would like to welcome John G. Grow, the 
new publisher of SoftSide Magazine. All of 
us are excited and anxious to see how 
John's contributions will enhance SoftSide 
and help the magazine expand. 

One of the things we have changed, as 
you will notice on the cover, is that SoftSide 
will no longer carry a month date, but 
rather a number. The number stands for the 
issue, which will never become outdated. 
We want people to realize that each issue of 
SoftSide is something to keep; a volume, 
filled with programs, that never becomes 
outdated. This issue, number 30, represents 
the first numbered edition of SoftSide and 
from now on we will be referring to issue 
numbers in place of month dates. Now 
computer and book stores can carry 
numbered SoftSides and not be concerned 
about trying to sell magazines that appear 
to be out-of-date. SoftSide never goes out- 
of-date. 

We'd like to give you a behind-the-scenes 
look and the monthly construction of this 
magazine we call SoftSide. It's quite a com- 
plicated procedure. 

Starting at the beginning, the editorial 
and programming departments meet to 
decide on the articles, programs, and 
reviews we want to include in the issue at 
hand. Authors have to be assigned articles, 
products sent to the authors of reviews and, 
most difficult of all, the programs have to 
be selected. Picking programs means 
reviewing a lot of submissions and finding 
the best ones to bring to you, the reader. 

After the material has been selected, the 
gears start to turn. Time is short and the 
program bugs start showing up. The 
authors are, as usual, procrastinating about 
getting started and the contracts for 
publishing rights, which have been sent out, 
haven't come back yet. The panic stEu^ts. 

Mean-wMle, the art department has been 
given titles and subject ideas so they can 
start working on the illustrations which ac- 
company the programs; but, for the most 



part, the art department has to wait for the 
printed material to arrive from the various 
departments. 

By now the programs for the disk and 
cassette versions should be on their way to 
the duplicators; the disks going to one 
duplicator and the cassettes to another. 
Before they can actually get started on the 
duplication, they have to send us verifica- 
tion copies to make sure everything is just 
right. With any luck, the media copies will 
be ready and back at SoftSide in time to be 
mailed at the same time as the magazine. 

Now, if everything is still on schedule, 
the art department starts putting the puzzle 
pieces together. Also, let's not forget the 
copy editor, whose in-basket seems buried. 
One can sometimes forget that there is a 
person sitting behind the pasted-up boards 
stacked on her desk for final edit. 

Wait, the ad from this vendor hasn't 
come in; there is a problem in the transla- 
tion of the Front Runner and it will take at 
least three days to work the bug out; the last 
review should have arrived by Purolator 
yesterday; the last program contract came 
back and the author has sold the publishing 
rights to another publisher. Find another 
program and start the illustrations im- 
mediately. Work the ad in after the proofs 
come from the printer — The art depart- 
ment is once again burning the midnight 
oil. With any luck at all, the printer will still 
get the magazine in enough time for us to 
get it in the mail on time. 

The tension before each issue goes out is 
often too much to take. The departments 
are trying to remain on good terms with 
each other. In three more days the 
magazine will have gone to print and, until 
next month, things will seem to quiet down. 

The best part in each month's cycle of 
putting SoftSide together is the day when 
that first box of magazines comes back 
from the printer. All the anxiety seems 
worthwhile. You see the end result of 
everyone's efforts in print, along with your 
name on the mast head, and it almost 
makes ycu forget all the frustrations of two 
weeks ago. You, the reader, are the final 
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judge when you receive your very own copy 
of SoftSide. 

Special issues, like the word processing 
issue, take almost six months of planning to 
put together! For all of you waiting for a 
good time to submit your educational pro- 
grams we have scheduled Issue #31 — the 
next issue you'll receive — to be based 
on educational material and programs. 
Also, Issue #33, which is SoftSide's an- 
niversary issue, is going to be based on 
graphics. We will be publishing high quality 
graphics programs and reviewing some of 
the best graphics software on the market. 
Keep an eye out for these issues for they will 
be something you won't want to miss. Now 
is a good time to polish up those educa- 
tional and graphics programs and send 
them in for review. 

For all of you who either wrote in on the 
survey or asked at the computer shows 
about a series of articles on translations, 
make sure you don't miss this month's ini- 
tiation of a new Sensuous Programmer 
series. "J" has started, in this issue, 
describing the procedure for translating 
from one system to another. Once you 
become an expert translator, you can take 
advantage of the offer in this issue to get a 
one year media subscription for a published 
translation. 

Once again, I've gotten carried away and 
forgotten that this column has to fit into a 
certain amount of space. Oh well, I'm sure 
if it doesn't fit, the art department will haul 
me in to make it fit. It would be nice to hear 
from some of you regarding your feelings 
about the last few issues. We always ap- 
preciate comments from our readers, 
positive or negative. It helps us to make 
SoftSide a magazine you'll continue to 
enjoy. 

Until next month, Happy Hacking. 
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The Computer 
Goes to Hollywood 

by Fred D'Ignazio and Allen L. Wold 



Have you ever seen Walt Disney's 
Pinocchiol Remember when the giant 
whale Monstro swallowed Pinocchio 
and held him prisoner in a belly as big 
as a cathedral? 

Or Fantasia! Remember the terrible 
battle between two huge dinosaurs — a 
Stegosaurus and a Tyrannosaurus 
Rex? Remember the evil creatures who 
came alive at night on Bald Mountain? 
Remember poor Mickey Mouse and 
the dancing broomsticks who tried to 
drown him in buckets of water? 

Did you see One Hundred and One 
Dalmatians! Remember Cruella de 
Vil? She was the demonic woman who 
kidnapped the Dalmatian puppies so 
she could skin them for a fur coat. 
Remember the chase scene down the 
mountain, with Cruella's car spitting 
fire, and Cruella herself looking like an 
angry fiend from hell? 

These were Disney masterpieces. 
They were full-length animated 
features — king-sized cartoons. Every 
character was drawn by hand. Each 
scene was drawn by hand. Dozens of 
artists teamed up and worked 
thousands of hours to produce all the 
still paintings that, when shown 
together rapidly, made the cartoon 
characters come alive. 

The pictures were incredibly 
realistic. The heroes were brave and the 
villains were frightening and evil. Ac- 
tion filled the screen from start to 
finish. 

But those days are gone. All that's 
left are the reruns. 

Why? 

Because full-length, animated car- 
toons have become tremendously 
expensive. 



The Golden Age of Cartoons 

In order to produce a quality 
animated film, artists need to draw 
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thousands of individual, full-color pic- 
tures. Each picture might only be 
slightly different from the next, but 
it has to be completely drawn and 
colored. 

Walt Disney Studios pioneered full- 
color, high-quality animated films. In 
the 1930s, 1940s, and 1950s, Disney 
had dozens of animators working turn- 
ing out such classics as Sleeping Beau- 
ty, Dumbo, and Snow White. 

Unfortunately, even though these 
movies were a great success, costs rose 
so fast that, after awhile, it became un- 
profitable to do animated films with 
any level of detail, craftsmanship, or 



"In the mid-1980's, thanks to the 
computer, animation has again 



become popular." 



quality. Almost the only type of 
animations that remained by the late 
1960s and 1970s were the "quick-and- 
dirty" animations used for Saturday 
morning cartoon shows. 

The End of the Golden Age 

The cheaper animations used several 
shortcuts that significantly decreased 
their quality. For example, dozens of 
pictures in a row would be exactly the 
same, except that the characters' lips 
would move; or the same chase scene 
would be repeated several times; or the 
action of the characters might be jerky 
and ragged because the animators 
didn't make enough frames to capture 
each fine detail of the characters' 
movements; or the background in the 
animation might be blank, hastily 
drawn in, or repetitive. 

These shortcuts made for mediocre 
animations, but they enabled film com- 
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panics to hire far fewer animators than 
Disney had working for him during 
animated films' Golden Age. 

Computer Cartoons 

In the mid-1980s, thanks to the com- 
puter, animation has again become 
popular. The computer does not pro- 
duce films automatically. Human ar- 
tists still do the original artwork, but 
the computer helps the artist in two 
major ways. First, the computer helps 
the artist to work faster. Second, it 
frees the artist from lots of boring, 
tedious chores, such as filling in colors 
and painting the same, exact scene 
many times in a row. 

Now an artist can draw an original 
picture — with scenery and characters 
— using a special pen plugged into the 
computer. As he or she draws, the 
same picture appears on the 
computer's TV screen and in the com- 
puter's memory. 

When a picture is drawn, the artist 
can choose colors for the characters 
and scenery by touching a color con- 
tained in a "menu" of colors shown on 
the screen. When the artist touches an 
area in the picture which is to be 
painted that color, the computer colors 
the area automatically. 

For example, let's say the artist has 
just drawn a robot and wants to make 
it metalHc blue. She touches the blue 
color on the menu and then the robot. 
Instantly, the computer paints the 
robot blue. 

Or, let's say the robot is crouching 
with a light saber in its right hand. The 
scene calls for the robot to leap onto a 
tall ledge, while holding the saber. 

In the past, a good animation film 
would have required the artist to draw 
dozens of "inbetweener" pictures that 
showed the robot in a crouch, flying 
through the air, and ending up on the 
ledge. This would have made the 



robot's jump look natural, lifelike, and 
realistic. 

Now the artist has to draw only two 
pictures: the robot in the crouch and 
the robot on the ledge. The computer 
automatically draws and colors in all 
the in-between pictures. This saves the 
artist hours of tedious work, drawing 
and coloring in the same robot in only 
slightly different positions. 

The World Through the "Eye" 
of the Computer 

Today dozens of companies 
manufacture computer graphics ter- 
minals — computer keyboards with TV 
screens that make pictures. 

Almost all personal computers are 
built so that you can plug them into 
your TV and make picutres. Depend- 
ing on the type of computer or ter- 
minal, it might make simple black-and- 
white stick-figures, or it might paint 
realistic pictures in full color. Some 
computer pictures are so realistic that 
they look like photographs. 

Lauren Carpenter is a computer 
scientist who specializes in teaching 
computers to draw realistic pictures. 
He works at Lucasfilm, where he helps 
to create computer special effects for 
upcoming episodes in the Star Wars 
saga. 

Lauren recently taught his computer 
to draw a picture of a mountain range 
that looks exactly Hke a photo taken by 
a hardy mountaineer, thousands of 
feet up the sheer face of a windy, snow- 
covered mountain. Amazingly, the pic- 
ture is completely artificial. The 
"mountains" in the picture are 
nowhere on earth. They were drawn by 
a computer program that was trained 
to manipulate numbers statistically in 
order to simulate a real mountain. The 
program creates patterns of light and 
shadow out of milHons of numbers and 
hundreds of rules, then "paints" what 
look like mountains on the computer's 
picture screen. 

If Lauren doesn't like the 
computer's mountains he can erase the 
screen. A few seconds later, a new 
mountain range will appear, com- 
pliments of the computer's "imagina- 
tion." 

Paint and Grow 

Digital paint boxes and computers 
that can paint imaginary mountain 
ranges represent the two types of com- 
puters used in Hollywood. The first 
type of computer is a "Paint" 
machine. It enables a human artist to 
paint — create and color — film 
frames electronically. The second type 
of computer "grows" pictures from 



scratch, through the use of complex 
algorithms that create realistic visual 
images — a combination of subtle tex- 
tures, contours, tones, shadings, 
elaborate colors and three dimensional 
perspectives. 

The first type of computer is the tool 
of a trained human artist or animator. 
The second type of computer is con- 
trolled by a human "artist," too, but 
not an artist with manual talents and 
skills. This artist is a technician — a 
computer scientist or programmer — 
with knowledge of advanced, statistical 
programming techniques. This 
"artist" works only with algorithms, 
numbers, and equations. The com- 
puter actually puts the art onto a screen 
or a piece of paper. The computer 
becomes the artist's "hand." 

Both types of computers are 
sometimes employed in the same film. 

Animated Electronic Mattes 

Advanced computer animation 
systems are used to create many of the 
special effects you see in today's 
science fiction and adventure films. 
During a live-action filming, movie 
technicians can project human actors 
onto scenes created by a computer. The 
scene is called a matte. 

At one time, all mattes were created 
by human artists. Whenever an 
especially complex scene was required, 
a matte was painted, because a real 
scene would be too time-consuming or 
expensive to stage. 

Even today, many mattes are still 
stationary paintings. Sections of the 
mattes are darkened — or masked — 
so that when the film showing the 
matte and the film showing the actors 
are merged, the effect is reaUstic. Mat- 
tes of this type were used in Walt 
Disney's Mary Poppins to show a 
dazzling rooftop view of the city of 
London; they were also used to create 
spectacular scenes in Walt Disney's 
movie Black Hole. 

Now, computers can create mattes 
— mattes that move and have a life of 
their own. Computers can project liv- 
ing, human actors onto these animated 
mattes. The scene represented can be 
anything or anyplace in the universe, 
or it can come from the film producers' 
imagination. 

Two studios that make extensive use 
of computer animation systems are 
Lucasfilm and Disney Productions. 

Special Effects 
for Star Wars 

Ed CatmuU is a wizard at using com- 
puters to create special effects for 
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movies. Recently, Ed was hired by 
Lucasfilm to produce the computerized 
special effects on future episodes of the 
Star Wars saga. 

Ed spent his first year at Lucasfilm 
getting ready. He built several high- 
speed animation computers. He 
designed revolutionary new special ef- 
fects and he hired the top artists and 
computer experts in the world. 

Now Ed has begun teaching the com- 
puters to create animated computer 
pictures that will come in all colors and 
in three dimensions. The pictures will 
be inserted in the midst of live action 
scenes in upcoming Star Wars movies. 
They will be so exciting and lifelike, 
that you'll think they are real. 

TRON 

Walt Disney Productions' movie, 
TRON, is about a video game genius 
who gets kidnapped to the world inside 
the computer. MCP, an evil computer 
program, captures the hero and 
transports him to a bizarre "game 
grid" where he becomes an electronic 
gladiator and must constantly fight 
battles just to stay alive. 

To produce the incredible scenes in 
TRON, Disney hired some of the most 
famous computer animation com- 
panies in the world. These companies 
taught their computers to create some 
of the amazing special effects. 

Computer Pictures at 4 AM 

Computer screens haven't always 
been able to make pictures. In the 
1940s and early 1950s, people used 
computer screens as part of the com- 
puter's memory. Later, in the 
mid-1950s, people used picture screens 
as "electronic paper." For example, 
when a programmer typed in com- 
mands or information on the computer 
typewriter, a copy would appear on the 
picture screen. 

No one knew how to make pictures 
on a computer screen, only how to 
enter numbers and words. Everyone 
knew computers were good at 
arithmetic, but no one realized that 
computers could translate numbers in- 
to pictures. 

Then along came Ivan Sutherland. 
In the early 1950s Ivan was a graduate 
student in the Department of Com- 
puter Science at MIT. He had been 
lured to MIT by Artificial Intelligence 
genius, Marvin Minsky. 

Ivan was hooked when Minsky 
showed him MIT's TX-O computer. 
The TX-O was an early time-sharing 
system that allowed a user to interact 
directly with the computer. Ivan loved 
sitting down at a terminal and carrying 
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on a conversation with the computer. 

When Ivan arrived at MIT, it was 
summer vacation. Few students and 
professors were around to compete 
with him for the computer's time, so he 
spent all day on the computer. Then 
the fall semester began, and Ivan got 
bumped off the computer. 

The computer was in use all during 
the day, but it was free every night 
after midnight. So Ivan, his wife Mar- 
cia, and their two children set up a new 
schedule for Ivan to follow. At 3:30 
every morning, Marcia would get Ivan 
up, feed him breakfast, and send him 
off to the computer lab. She'd go back 
to bed until seven or eight, then get up 
with the children. 

Ivan, meanwhile, would rush over to 
the lab, sit down at the terminal, and 
have the computer all to himself until 
the first professors and computer 
operators arrived around seven thirty. 

The First Electronic Sketchpad 

During one early-morning session 
with the computer, Ivan was playing 



with the picture screen. He had seen 
people type dashes on the screen, but 
no one, he realized, had ever pro- 
grammed the computer to draw. 

Ivan wanted to write a program that 
would cause the computer to draw a 
simple line on the picture screen. To do 
this he had to face several problems 
that no one else had ever faced. 

These are some of the questions Ivan 
asked himself: How do I describe a line 
to the computer? What instructions 
will make the computer actually draw 
the line? How do I tell the computer 
where to start the line, and where to 
stop it? Should the line be of fixed size, 
like a pole, or should it be elastic, like a 
rubber band? 

For the next two and a half years, 
Ivan worked on this problem. Finally, 
he figured out how to make the com- 
puter draw a line. Then he found a way 
to make the computer draw a square, 
then a triangle. One day, he practically 
danced around the laboratory. He had 
made the computer draw a circle! 

Ivan didn't stop there. He taught the 




computer to draw beautiful three 
dimensional shapes like spheres, cones, 
and cubes. He taught the computer to 
spin the shapes round and round. He 
taught the computer to shrink the 
shapes and to enlarge them. 

Step by step, Ivan blazed a trail into 
the world of computer graphics. After 
two and a half years, he proudly 
unveiled Sketchpad, a complete com- 
puter picture-making program. 

Ivan's enthusiasm about making pic- 
tures was contagious. According to 
Marcia, "Wherever Ivan was, people 
showed up and got excited. When Ivan 
was around, things just started 
happening." 

Motion Graphics for the 
21st Century 

In the next three columns, we will 
continue to focus on computer 
graphics, computer animation, and the 
use of computers to make movies. 

We will joyrney from Ivan 
Sutherland's early Sketchpad system to 
today's digital paint boxes and anima- 
tion systems. We will end our journey 
with an interview of computer genius, 
John Whitney Jr. We will learn about 
Whitney's efforts to invent a "Leon- 
ardo da Vinci" computer to create 
totally new modes of electronic enter- 
tainment — a "motion graphics for the 
21st century." 

On the way, we will look at today's 
paint and grow computers, and at in- 
novative studios, like Lucasfilm and 
Disney Productions. We will look at 
films that have used computer special 
effects — films like Star Wars, Alien, 
and TRON. 

We will speculate about interactive 
"movie theatres" of the future — com- 
binations of computer flight 
simulators, arcade videogames, and 
conventional wide-screen movies. 

We will look at some of the 
languages and systems that are being 
developed, included Zgrass, the Digital 
Paintbox, and the powerful animation 
Designer's Toolbox. 

We will examine the way computers 
are enabling scientists and film makers 
to work together to create a new 
generation of super-realistic TV 
documentaries: computer movies with 
dazzling special effects, all based on 
scientists' numbers and formulas, and 
on the latest scientific theories. 

With computerized image generation 
systems we can journey outside the 
Milky Way, take a spin around the 
solar system, orbit the earth, or dive 
through Saturn's rings. We can also 
soar across history and watch the Big 
Bang, or witness the fleeting birth and 
death of a sub-atomic particle. © 
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The Big Crash 

by R. J. Green 



Emma Honker was uneasy; her hus- 
band, Charlie, had been working for 
two straight hours at his computer. She 
couldn't see the screen from where she 
was sitting, only the pale glow that 
painted the outhne of his shoulders. 
Things just didn't seem right. Charlie 
was up to something. 

Her eyes fixed on the middle of his 
back. "What are you doing?" she 
asked. 

The room seemed to fill with color- 
ful light. "Zapp!" shouted Charlie. 
The screen was covered with an array 
of flashing colors. In a few seconds it 
settled down to a colorful throb. "I 
crashed the system while in BASIC 
without any pokes," he said. "I'll bet 
the boys at Atari® thought it couldn't 
be done." Mr. Honker spun around in 
his seat as if expecting some sort of 
thunderous applause. 

Mrs. Honker returned to her knit- 
ting. "I wish you wouldn't do that," 
she said. There was silence for five 
minutes. Again, reflected light from 
the video screen pulsed around the 
room. 

"Zapp! Zapp!" cried Mr. Honker. 

"Please don't do that, Charhe. It 
makes me nervous. You aren't sup- 
posed to blast the system are you?" 

"Crash the system," corrected 
Charlie. 

"Okay, crash the system. You aren't 
supposed to be doing that are you?" 

"That's the whole point, Emma. 
They designed it to be crash proof but 
I've done it all the same. I'll bet they'd 
pay a fortune to know how I did it." 

"You can play with your computer 
without doing that can't you? Anyone 
would think you're some sort of 
kook." Emma had a particularly ir- 
ritating way of calling him a kook. She 
only seemed to call him that when he 
was having fun. 

"You see," Charlie said evenly, 
"crashing the system, knowing how to 
crash the system, is just as important to 
software design as working the 
system." 




"Sounds crazy to me," Emma said, 
picking up a knitting needle. "I can't 
see how making it go berserk is any 
use. It makes me sick just to see it." 

That Thursday the Honkers had din- 
ner at the Milwrights. After dinner 
they ended up in the family room. 
Myron poured Charlie a brandy while 
Theresa and Emma sipped some hot 
tea. There was an uneasy silence in the 
room. 

Suddenly, Emma had a premoni- 
tion. She turned around to see what the 
men were up to. Sure enough, Charhe 
was seated before Myron's console typ- 
ing away at the keyboard. Before Em- 
ma could say anything, there was a 
flash on the screen. She could see 
Charlie clearly, a silly grin covered his 
face. Then something strange hap- 
pened. The disk drive started to whir 
and shudder, then it began to ratchet 
violently. The drive looked as if it was 
about to leap from the desk. Myron's 
face paled as he dove for the switch. 

There was silence in the car as 
Charlie and Emma drove home. Emma 
waited for him in the kitchen while he 
stabled the car. "You didn't have to do 
that," she said. 
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"It's all right, Emma," he said. 
"They make those disk drives damn 
sturdy." 

"Myron didn't seem happy with it at 
all." 

"Myron is too protective." Charlie 
began to prepare some instant coffee. 

"It was very rude," Emma said. "I 
mean, being a guest in someones house 
then diddling their computer." 

"It's not called diddling," he said, 
still in control of himself. 

"They probably think you're some 
sort of nut. A kook," Emma replied. 
There was silence until the teakettle 
came to a boil and began to scream. 

From then on things deteriorated 
rapidly. Late at night Charlie would 
steal to the family room and work on 
perfecting his crash program. At such 
times Emma would lie awake and 
watch as the glow from the family 
room became a colorful throb. 

"I just can't take it any longer," she 
said one day when he came home from 
work. "If you don't stop crashing the 
computer, it's all over between us, 
Charlie." It was a shock for Charlie to 
hear it put so bluntly. 

"I'd rather not talk about it," he 
said as he punched at the TV remote 
control. 

In spite of the temptation, Charlie 
stopped crashing his computer. Space 
Invaders soon began to bore him and 
his backgammon skills progressed well 
past the computer's capabilities. 

One day he began to wonder what 
the shortest program to crash the 
system would look like. He started 
weeding and pruning, trimming the 
program down. He was merciless. 
Statements were compressed and code 
tightened; he was struggling gamely to 
fit the whole thing into ten lines of 
code. And then, just when a 
breakthrough seemed imminent, he felt 
Emma's presence in the room. 

"You can't fool me, Charlie 
Honker," she said through clenched 
teeth. 

"Leave me be!" he retorted. 
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"You don't have to shout," Emma 
replied. "We won't have a friend left if 
you don't give this up." 

"The hell with friends," Charlie 
growled. There was a wild look in his 
eye. 

"You're sitting in here like some 
kook, being destructive. Before long 
the whole neighborhood will know 
about it." Emma left the room. 

The next evening, after dinner, Em- 
ma poured Charlie a drink and sat 
down next to him. "I was talking to 
Sally Westfall today." 

"Westfall? Doesn't her husband 
work for Atari®?" Charlie asked. 

"Yes, anyway, she was telling me 
about this doctor. He's done wonders 
for Bobby. Why in no time at all, the 
boy was playing baseball again." 

"What in God's name are you up to 
now, Emma?" 

"Nothing. I just thought... well, he's 
sort of an expert in these things — you 
know, obsessive behavior and all." 

Charlie went to the family room and 
seated himself. The faithful 810 
ground away as Charlie mumbled 
"Mad am I? I'll show them who's 
mad. There are depths to this thing 
they haven't even dreamed of." 

Emma followed him to the family 
room. "Dr. Laskey says that home 
computers are like a disease. He says 



this sort of thing is becoming 
epidemic." 

"Epidemic, my foot," Charhe said, 
turning up the audio. "I'lL bet he 
doesn't know a peek from a poke." 

"You're up to it again aren't you? 
You're going to crash the system again. 
Admit it." 

"Crashing the system is child's play. 
If you really want to know, I'm figur- 
ing out how to double flip the video 
display." 

It must be said on Charlie's behalf 
that his words were delivered very 
calmly, very evenly, and very slowly. 
There was only a hint of emotion in the 
statement. They both had a vague feel- 
ing of being trapped on a runaway 
roller coaster. 

That night, while Emma lay in bed 
studying the ceiling, Charlie was at the 
keyboard. "Flip, FHp," he said. The 
characters on the screen not only 
reversed themselves but also formed 
themselves upside down. 

The next morning Emma found 
Charlie slumped across his desk. The 
screen was pulsing hideously above 
him in a frenzy of dancing letters and 
symbols. 

"My God, it's killed him," she 
screamed. 

Some ten minutes later, Emma had 
recovered enough to call Dr. Laskey. 



Laskey responded quickly and was at 
the Honker's door within the hour. He 
was getting used to these calls. They 
were coming more and more frequently 
the last few months. Would people 
never learn? 

Charlie was just regaining con- 
sciousness as the doctor rushed into the 
room. Laskey recognized the telltale 
signs revealed between Charlie's half 
closed eyehds: the shrunken pupils, 
and the glazed irises. Charlie's fingers 
were curling and uncurling in a ghastly 
parody of a pianist flexing his fingers 
before a concert. "This is the worst 
case I've ever seen," Laskey said, 
carefully polishing the right lens of his 
glasses. "The man is as mad as a 
hatter." 

It took ten long months of grim 
therapy before Charlie was allowed to 
leave the rest home. In the interim, 
Emma joined a religious community 
somewhere in Kansas. She now dresses 
in black and refuses to ride in 
automobiles. 

Charlie is seldom seen anymore. His 
job is gone and he spends his days 
locked in a cheap apartment. Occa- 
sionally his neighbors call the police 
with complaints of strange whirring 
noises and flashes of light radiating out 
from underneath his door. © 
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June 4-6 

The First Annual New Hampshire 

Computer and Business Show 

National Guard Armory, Manchester, NH 

June 4 and 5 10 A.M.-7 P.M. 
June 6 10 A.M.-5 P.M. 

This show will bring makers and 
distributors of personal computers, their 
accessories, software and related business 
equipment to one place — the National 
Guard Armory — to show and 
demonstrate their equipment to thousands 
of pre-qualified buyers who will pay to 
attend. 

June 5 I 

Amateur Fair 

Minnesota State Fairgrounds, St. Paul, 

MN 

The North Area Repeater Association will 
sponsor Minnesota's largest swapfest and 
exposition of personal computer and 
communications equipment. Show will 
feature exhibits, booths, and prizes. 
Admission is $3.00. 

Contact: Amateur Fair, P.O. Box 30054, 
St. Paul, MN 55175. 

June 6-8 

Sixth International Conference on 
Computers and the Humanities 
McKimmon Center, Raleigh, NC 

A pre-convention workshop will be 

presented. Speakers will be featured 

during the conference. 

Contact: Department of English, North 

Carolina State University, Raleigh, NC 

27650. 

June 7-10 

National Computer Conference 

Astrodomain, Houston, TX 

The latest advances in computer 
hardware, software and services will be 
displayed. This event will also include a 
technical session, speakers from both 
industry and government, and films 
relating to computer technology. 
Contact: American Federation of 
Information Processing Societies, 1815 N. 
Lynn St., Arlington, VA 22209, (703) 
558-3610. 

June 8-9 

Confronting the Communications 

Revolution 

McGraw-Hill World Headquarters 

Conference and Exposition Center, New 

York, NY 



Current and future industry changes will 
be discussed. Hands-on strategy 
workshops will concern broadcasting, 
newspaper, consumer and trade 
publications, and information systems. 
Contact: Business Week Executive 
Programs, 1221 Ave. of the Americas, 
40th Floor, New York, NY 10020, (212) 
997-4930. 

June 14-16 

The First Annual Connecticut Business 
and Personal Computer Show 
Hartford Civic Center, Hartford, CT 

June 14th and 15th 10 A.M.-8 P.M. 
June 16 10 A.M.-5 P.M. 
This show will bring makers and 
distributors of personal computers and 
their peripherals, accessories, and software 
to one place — the Civic Center — to 
show and demonstrate their equipment to 
thousands of pre-qualified buyers who will 
pay to attend. 

June 20-Aug 6 

Young People's Basic Training Camps 

Lake Forest College, Lake Forest, IL 

These camps will give high school aged 
students hands-on experience with 
computers. Camps are one week long and 
are open to students 12 to 18 years old. 
Contact: Lake Forest Computer Camp, 
Lake Forest College, Lake Forest, IL 
60045. 

June 27 

Rocky Mountain Computer Camps 
Boulder Computer Resource Center, 
Boulder, CO 

This summer the Boulder Computer 
Resource Center is offering computer 
camps for kids: The ROCKY 
MOUNTAIN COMPUTER CAMPS. The 
camps, to be held at Wild Basin Lodge in 
the mountains 65 miles west of Denver, 
are dedicated to teaching today's young 
people skills and tools that will assist them 
in meeting the challenges of tomorrow's 
world. 

Rocky Mountain Computer Camps will be 
offered three times during the summer. 
The first session starts on Sunday, June 
27, 1982. For further information and a 
camp brochure contact BCRC at 1005 
Pearl Street, Boulder, CO 80302, 
442-6228. O 



If you or your organization are 
sponsoring or know of an event you 
think would be of interest to SoftSide 
readers, please send complete infor- 
mation to: 

SoftSide Publications 

Calendar Editor 
6 South Street 
Milford, NH 03055 

Be sure to include complete infor- 
mation concerning dates, location, 
subject matter and a contact name, 
address, and phone number. 




Bugs, >ii^ 

Worms, 

and 

other 

Undesirables 



A small bug in the Apple version of 
Database (October, 1981) keeps the 
custom print formatting feature from 
working properly. Line 3830 should be 
corrected as follows: 

3830 IF Jl < 5 THEN N = VAL ( NID$ 
(F$(T),J,2I):J = J + 2 



The following minor corrections 
should be made to the Apple Version 
of Word Wars (January, 1982): 

1335 GOSUB 255: 60T0 1355 
1350 GOSUB 255: GOTO 1365 



In the ATARI® program Defense 
(February, 1982), a character was 
dropped from the listing in line 10040. 
There should be a left parenthesis 
following the word PEEK. 



An important portion of the 
documentation for Gothic Letter 
Printer {ApriX, 1982) was omitted from 
the magazine. The character assigned 
to C$ in line 550 may need to be chang- 
ed to work properly with your printer. 
On the Epson MX-80, for example, the 
CHR$(127), which is specified, will not 
print anything. You can experiment 
with the value of this character to 
change the appearance of the final 
printout. 

An additional note: DV subscribers 
and others who are working under 
DOS PLUS will need to change the 
FORMS parameters to prevent the 
printout from breaking to skip over 
page boundaries. From DOS, type 

FORMS (L = 66) 

and press ENTER; this will allow all 66 
lines per page to be printed. 
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There is a small error in the Apple 
K-Byter Battleship, in the April, 1982 
issue. Line 160 should read as follows: 

liO IF fix < OR AX > 9 OR DY < 

OR DY > 9 THEN 150 © 
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SENSUOUS PROGIMMMER 





When I closed my twelfth (and sup- 
posedly last) column two issues ago, I 
had no idea how prophetic the con- 
cluding sentence would be. Sigh. 

For those who can't remember (or 
never read) those immortal words, they 
were a paraphrase of author Alfred P. 
Morgan's comment at the close of his 
classic book which so influenced my 
formative years: "And who knows but 
that someday, perhaps I shall write 
another Boy Electrician." Mr. Morgan 
took the sensible course of leaving that 
sparkling hope dangling enticingly in 
the air. Fool that I am, I have once 
again put fingertips to keyboard to 
continue the legacy of the Sensuous 
Programmer, with further meander- 
ings through the world of BASIC 
programming. 

Judging from the mail that SoftSide 
receives, there are a great many people 
IS 



who read this magazine because they 
like the multi-system emphasis and are 
interested in learning more about all 
three systems. An increasing number 
of you own or use two or more dif- 
ferent computers at home or at work, 
and want practical help with convert- 
ing BASIC programs from one to 
another. (My personal suspicion is that 
most of these people are TRS-80® 
owners who sneak in to play with the 
Apple at work during their coffee 
breaks.) 

In previous columns, I've touched 
on most of the different kinds of infor- 
mation needed to do such conversions. 
What is now needed is a step-by-step, 
how-to-do-it approach, in order to 
clarify and apply this information. It's 
one thing to read an article comparing 
the ways in which the Apple, ATARI®, 
and TRS-80®handle strings, screen for- 
SoftSide 



matting, or graphics; it's something 
else to actually take a program written 
in one dialect of BASIC and translate it 
for another machine. 

This is especially true if you have 
only a program hsting of the original, 
and no access to the computer for 
which it was written. Trying to 
visualize how a program will act and 
what the screen displays will look like, 
just from a listing, can be a very dif- 
ficult and frustrating task. Thorough 
documentation is a big help here, as is 
the logical structuring of the original 
program into meaningful sections and 
subroutines. But those are things you 
can't always expect to find. 

I think the only approach to such a 
practical subject is practice. In order to 
learn how to do something, you have 
to do it. (This bit of wisdom was in- 
grained in my gray matter as far back 
as elementary school, when we all sat 
around thinking up book titles such as 
Brain Surgery Self -Taught by Les I. Q. 
Moorhead.) So, beginning with the 
simple and working toward the com- 
plex, this series of colimins will look at 
actual programs written for one com- 
puter, and will intimately explore the 
anatomy of translating them for the 
other two systems. This, of course, is 
practice for ME, not for YOU. The 
ultimate step, of applying such fuddl- 
ings and fumblings to that program 
that you want to convert, is up to you. 

In this introductory column, I'd like 
to encourage you to send in your sug- 
gestions for programs (or interesting 
subroutines or portions of programs) 
to translate here in this series. Feel free 
to suggest programs of particular in- 
terest that have been pubHshed in past 
issues of SoftSide, or others that your 
computer may have lying around its 
room...er, RAM. If you do send a pro- 
gram, be sure to send it on disk or tape, 
not just as a printed listing. Due to the 
volume of mail I anticipate getting, I'm 
sure I won't be able to respond per- 
sonally to each one of you (that's the 
standard excuse, isn't it?), but I will try 



to include material of general interest 
in the column. Tapes and disks will be 
returned if accompanied by a self- 
addressed, stamped envelope and a 
reasonable bribe. Send all materials to 
me c/o SoftSide, 6 South Street, 
Milford, NH 03055. 

For openers, we'll resuscitate a TRS- 
80® program from the early days of 
SoftSide and step through its conver- 
sion for Apple and ATARI®. The pro- 
gram is Fog Index by George Blank 
(March, 1979), and its listing is shown 
in figure 1. It is very straightforward 
BASIC code, which will provide an il- 
lustration of how easy conversion 
can be. 

The first step in doing a translation 
is to understand WHAT the program 
does. (Forget HOW it does it, for the 
moment.) Presumably even the most 
sketchy documentation ought to give 
some kind of description; otherwise, 
why would you want to go to the work 
of translating the program in the first 
place? Fog Index helps you to do a 
brief analysis of a /ample of written 
text, to determine how easy it is to 
read. You choose five sentences from 
the text you want to analyze, and the 
program prompts you to enter two 
facts about those sentences: the total 
number of words in each, and the 
number of three-or-more-syllable 
words in each. It then gives you a 
rough idea of the grade level of the 
writing, and prompts you to press a 
key to run another analysis. 

The next step in the translation pro- 
cess is to scan the program listing to get 
an overall idea of its complexity and its 
structure. In this case, the program- 
ming is very straightforward, using on- 
ly the standard keywords PRINT, IN- 
PUT, DIM, FOR/TO/NEXT, and 
GOTO, plus the TRS-80® keyword 
CLS. Instructions and array dimen- 
sioning are right at the beginning (lines 
10-70), followed by the main body of 
the program. There are only two 
FOR/NEXT loops: One for inputting 
information about the five sentences in 
hnes 110-160, and one in line 170 for 
doing the calculation of the fog index. 
Other than these, and the GOTO 100 at 
the end which simply returns to the 
beginning of the main body, the pro- 
gram just flows from line to line 
without branching off to foreign line 
numbers. 

With this overall structure in mind, 
it's a good idea to look more closely at 
the coding, with an eye to spotting un- 
familiar keywords, or familiar ones 
used in unfamiliar ways. The very first 
Une of the program contains a state- 
ment which may be unfamiliar to an 
Apple or ATARI® user: CLS, which 
simply clears the screen. It's the 



Figure 1 



TRS-80® Original of Fog Index 

10 CLS 

20 PRINTS 64, "FOG INDEr 

30 PRINT: PRINT'THIS PROGRAH HILL RATE PRINTED MATERIAL ON HOH" 

40 PRINT'EASY IT IS TO READ. TO USE IT, PICK FIVE TYPICAL" 

50 PRINT'SENTENCES AND ANSWER THE QUESTIONS GIVEN." 

iO DIN A!10) 

70 PRINT:PRINT: INPUT" (PRESS ENTER TO BE6IN)"ifl» 

100 CLS 

110 FOR A=1T05 

120 PRINT"NUHBER OF WORDS IN SENTENCE NU«BER"iA; 

130 INPUT A(A) 

140 PRINT'MUHBER OF 3 OR MORE SYLLABLE WORDS IN SENTENCE NUNBER" 

;A; 

150 INPUT A(fl+5) 

160 NEXT A 

170 B=0:FOR fl=lT010:B=B+A(A):A(fi)=0:NE){T A 

180 CLS:F=B».4 

190 PRINT INT(F./5)!"IS THE FOG INDEX":PRINT 

200 PRINT"THE FOG INDEX IS ABOUT THE SAME AS GRADE LEVEL" 

210 PRINT:PRINT"TYPICAL VALUES" 

220 PRINT"17 COLLEGE GRADUATE (NO POPULAR MAGAZINE IS THIS HARD) 

230 PRINT"12 HIGH SCHOOL SENIOR - ATLANTIC MONTHLY" 

240 PRINT" 10 HIGH SCHOOL SOPHOMORE - TIME MAGAZINE" 

250 PRINT'S EIGHTH GRADE - LADIES HOME JOURNAL - SERMON ON THE 

MOUNT- 

260 PRINT 

270 INPUT" (PRESS ENTER TO RESTART PROGRAM) "jA* 

280 GOTO 100 



equivalent of HOME or CALL -936 on 
the Apple, or PRINT CHR$(125) or 
PRINT"(esc Ctrl-clear)" on the 
ATARI®. 

Line 20 may also contain an un- 
familiar element: the "@" symbol 
following the word PRINT. This com- 
bination directs printing to the 
specified location on the screen. The 
location can be between and 1023; 
the first screen line is numbered 0-63 
from left to right, the second 64-127, 
and so forth. Printing at location 64, 
then, begins printing with the first 
character on the second line of the 
screen. This function can be duplicated 
by ATARI®'s POSITION statement or 
Apple's VTAB, or (in this case) simply 
by printing a blank line before the ac- 
tual text. 

Lines 30-50 are just text to print; 
what could be more straightforward? 
Yet they will require some modifica- 
tion because they're formatted for 
64-character lines, not 38 or 40. Lines 
that break in the middle of words are 
SO tacky; and yet translators 
SoftSide 



sometimes gloss over such "trivial" 
details, ruining the final appearance of 
the converted program. The easy way 
to properly format text for your com- 
puter is simply to pay attention as 
you're typing in the PRINT 
statements. When the string of text 
wraps around so that it is directly 
under the opening quotation mark, 
you're at the last character of the 
screen line; the next line will begin im- 
mediately under the first character of 
the line above. (Notice, however, that 
the Apple does not LIST program lines 
in this way once they are entered into 
memory; you need to pay attention as 
you're typing the line.) You can choose 
either to use a separate PRINT state- 
ment for each screen line, or to com- 
bine two or more screen lines in a single 
PRINT, keeping the first character of 
each new line directly under the 
previous one. 

The DIM statement in line 60 needs 
no conversion, since all three com- 
puters handle numeric arrays in the 
same way. But, when comparing the 
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Apple or TRS-80® with the ATARI®, 
statements which dimension strings are 
another matter altogether. This subject 
will be covered in a later column, in the 
context of another program. 

The remainder of the program will 
cause no problems at all for the Apple 
translation, and will need only some 
slight modifications for the 
ATARI® translation with regard to the 
INPUT statements. There are two 
types of structures here that the 
ATARI® will not allow: Using a 
prompt string between INPUT and the 
variable name (lines 70 and 270), and 
using a subscripted variable in the IN- 
PUT statement (Hnes 130 and 150). 
Both situations are very easily re-coded 
into an acceptable form. For lines 70 
and 270, simply use a PRINT state- 
ment followed by an INPUT statment, 
being sure to include a DIMension 
statement for the dummy input string 
before using it. And for lines 130 and 
150, use a simple variable such as A for 
the INPUT statement, and then im- 
mediately assign this value to the 
subscripted variable. 

With the original listing now all 
scribbled up with notes and arrows and 
such, all that needs to be done is to sit 
down and start typing. The results are 
shown in figures 2 and 3. A few 
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modifications having to do with screen 
formatting (extra PRINTs and that 
sort of thing) were made in both ver- 
sions. This sort of fine-tuning is in- 
variably necessary, and can only be 
done after you have the program run- 
ning and can see how it looks on the 
screen. You can now type the ap- 
propriate coding into your computer, 
and use it to find out just how obscure 
this column really is. 

Next month we'll plunge right into 
another anatomy lesson, with a slightly 
more complicated specimen to further 
test our surgical skills. 
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Apple Version of 
Fog Index 

10 HOHE 

20 PRINT : PRINT "FOG INDEX" 

30 PRINT ! PRINT "THIS PR06RAH M 

ILL RATE PRINTED HftTERIAL' 
40 PRINT "ON HON EASY IT IS TO R 

EAD. TO USE IT," 
50 PRINT "PICK FIVE TYPICAL SENT 

ENCES AND ANSHER" 
55 PRINT "THE QUESTIONS GIVEN." 
60 DIN AUG) 

70 PRINT : PRINT ! INPUT "(PRESS 

RETURN TO BEGIN) ";A* 
100 HONE 

no FOR A = 1 TO 5 
120 PRINT "I OF WORDS IN SENTENC 

E •;A; 
130 INPUT A(A) 
140 PRINT •» OF 3+ SYLLABLE NORD 

S IN SENTENCE "5 A; 
150 INPUT A(A + 5): PRINT 
160 NEU A 
170 B = 0: FOR A = 1 TO 10:B = B + 

A(A):A(A) = 0: NEXT A 
180 HOHE :F = B I .4 
190 PRINT INT (F / 5);" IS THE 

FOG INDEX"! PRINT 
200 PRINT "THE FOG INDEX IS ABOU 

T THE SAHE AS GRADELEVEL" 
210 PRINT ! PRINT 'TYPICAL VALUE 

S" 
220 PRINT : PRINT "17 COLLEGE G 

RADUATE (NO POPULAR 

MAGAZINE IS THIS HARD)" 
230 PRINT ! PRINT "12 HIGH SCHO 

OL SENIOR (ATLANTIC 
MONTHLY)" 
240 PRINT : PRINT "10 HIGH SCHO 

OL SOPHOMORE (TIME 



MAGAZINE)" 
250 PRINT ! PRINT " 8 EIGHTH GR 
ADE (LADIES HOME JOURNAL, 
SERMON ON THE MOUNT)" 
260 PRINT 
270 INPUT "(PRESS RETURN TO REST 

ART PROGRAM) ";A« 
280 GOTO 100 



Figure 3 



ATARI® Version of 
Fog Index 

10 PRINT "}" 

20 PRINT :PRINT "FOG INDEX- 
SO PRINT :PRINT "This progrw will rat 
e printed" 

40 PRINT "laterial on how easy it is t 
read." 

50 PRINT "To use it, pick Hve typical 
sentencesand answer the questions giv 
en." 

60 DIM A(10),A$(10) 
70 PRINT :PRINT :PRINT "(PRESS RETURN 
TO BEGIN) "ii INPUT At 
100 PRINT •}■ 
no FOR A=l TO 5 

120 PRINT "» of Nords in sentence "jA; 
130 INPUT AA!A(A)=AA 
140 PRINT ■♦ o{ 3+ syllable words "; 
150 INPUT AA:A(A+5)=AA 
160 NEXT A 

170 B=0:FOR A=l TO 10:B=B+A(A):A(A)=0! 
NEXT A 

180 PRINT "}":F=BI0.4 
190 PRINT INT(F/5);" IS THE FOG INDEX" 
jPRINT 

200 PRINT 'The Fog Index is about the 
sase as grade level" 
210 PRINT ! PRINT 'TYPICAL VALUES" 
220 PRINT !PRINT "17 College graduate 

(no popular lagazine is this 

hard)' 
230 PRINT iPRlNT "12 High school seni 
or (Atlantic Monthly)" 
240 PRINT SPRINT "10 High school soph 
oiore (Tiie Magazine" 
250 PRINT :PR1NT " 8 Eighth grade (La 
dies Hoie Journal, Serun on the No 
unt)" 
260 PRINT 

270 PRINT "(PRESS RETURN TO RESTART PR 
OBRAM)";: INPUT A» 
2B0 GOTO 100 © 
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CAN'T AFFORD SOFTWARE? 

READ THIS: 

If the high price of commercial soft- 
ware and the lack of clear information 
about your microcomputer has got you 
down, here's the solution you've been 

waiting for! 

SoftSide Magazine 

SoftSide is a favorite of computer users and 
hobbyists alike. They rely on it as a prime source 
of programs, reviews and articles for the Ap- 
ple^'', ATARI®, and TRS-80® microcomputers. 
SoftSide is the magazine for the microcom- 
puter owner who wants to learn BASIC pro- 
gramming, learn MORE about BASIC pro- 
gramming, or just wants to have FUN! 
SoftSide gives you the BASIC code listings 
of several programs — adventures, 
utilities, games, simulations, you name it 
— for your computer EVERY MONTH. 

There's more: 

• Reviews — of the software and hard- 
ware products you want to know 
about. 

• Articles — about all aspects of 
BASIC programming. 

• Tutorials — on graphics, use of im- 
portant commands, and more. 

• Programs — each month SoftSide 
publishes a variety of program for the 
Apple, ATARI® and TRS-80®. 



• Columns — which discuss different topics in- 
cluding: computer graphics, picking the right 
modem for you and marketing your software — 
just to name a few. 

• Input from our readers — each month we 
devote a space in the magazine to let our 
readers give us some feedback about SoftSide. 

• Hints & Enhancements — programmers and 

readers provide us with enhancements, to our 

programs, and programming tips. 
Use coupon to order. Mail to: SoftSide Publica- 
tions, 6 South St., Milford, NH 03055 

As you can see, you'll receive pages and 
pages of information and entertainment 
from SoftSide. Here's the best part: 

A subscription to SoftSide is just $24 a 
>%M. That's 12 issues for only $2 each! 
What a value! 



I — I YES! Send me the first copy of my 
SoftSide subscription right away! 

$24/yr for USA and Canada only. For orders to APO/FPO 
or Mexico — $40/yr. Other foreign orders — $62/yr. 
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by Edward Ting 

Video games. 

Sometimes I wonder just wiiat effects playing games on those seemingly innocent- 
looking machines has on us. Perhaps, as some say, those games bring out the romantic 
in all of us, allowing us to be heroes for a quarter. Others say that they let us bang 
out our frustrations on inanimate machines, without really doing any harm. 

But I'm beginning to think that maybe the video game obsession can be carried a bit 
too far. Let me explain. 

Herm was driving me home. We were bushed; we'd had a hard day at work gobbling 
dots, destroying aliens, and defending the East Coast. I reached into my pocket and 
pulled out the remaining pennies and nickels. It never ceased to amaze me how we 
always managed to spend so much money in a game room. Not only was it expensive, 
but it was downright tiring. One can only look at so many little aliens before the eyes 
start going cuckoo. 

Apparently, Herm was tired, too. He loosened his grip on the steering wheel, allow- 
ing the car to drift towards the center of the road. 

"Hey, Herm! Watch it. You're falling asleep. The car's in the middle of the road." 

"I know." 

He knew? He KNEW? Then, the obvious question, "Why are we in the middle of 
the road?" 

"I get points for eating up the little lines." 

Oh, well. Ask a stupid question. . . . 

The road curved. Herm accelerated, smiling as the car pleasantly digested the broken 
median lines. It was only then that I realized a car was heading straight for us. 

"Herm!" 

"What?" He seemed mildly annoyed. 

"Don't you see it?" 

He smiled. "Yeah. Think of all the points it's worth!" 

"Herm, no! You can't!" 

Then, as if hit by a sudden epiphany, he snapped his fingers and jerked the car to the 
right. We barely missed the oncoming car. 

"You were right. I couldn't eat it. It wasn't blue." He turned towards me. 
"Thanks." 

In another minute or so, we wandered back to the center of the road, resuming our 
vehicular dot-munching. That was OK; at least I knew what he was doing. 

The road came to the base of a steep hill and the broken median lines turned solid. 
To the other 99 percent of the population that meant a no-passing zone. For Herm, 
however, it meant something else. He snapped the car quickly back into the right lane, 
throwing me against the door. 

"What was that?" 1 asked, slightly out of breath. 

"Dummy," he said. "Don't you know that you're supposed to avoid the spikes?" 

I sank back into my seat, rechecked my seat belt, and vowed to shut up for the re- 
mainder of the trip. I sat staring dumbly at the tan hood of the car. But, as 1 looked, 1 
realized that something was wrong. I couldn't put my finger on it, but something was 
out of place. Then I had it — the hood ornament. 

It had been pulled out and placed on the hood about two feet to the left of where it 
was before. I sat and looked at the curiosity for at least a minute. Knowing that I really 
shouldn't question it, the words came out slowly. 
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"Hey Herm, why is the hood ornament way over there?" 

"It's my sight." He looited into my uncomprehending eyes and elaborated. "You 
need a sight to shoot things down, right? And what's the use of having your sight 
mounted in the center of the hood? From my point of view, I'd be Hmited to shooting 
things to the right of the car at an awkward angle. Either that or I'd have to sit in the 
center. But it's a little hard to reach the brake pedal then." 

"You . . . you . . . shoot things?" 

"Not really. I use the horn as my trigger. My photoelectric sensor in the headlight 
tells me if I've hit, and tallies my score." 

Another car was coming at us. 

"Here. I'll show you with this car." 

"No. No, really. I believe you. You don't have to prove anyth. . ." 

"No problem, l assure you. I've done it a hundred times before." 

I covered my face and peeked through my fingers as we shifted into the left lane. 
Herm's face was intent, focusing through his "sight." The other car's horn sounded. 
Herm blared his horn, then reeled us over to the right. I could have sworn that we hit, 
but somehow we didn't. 

Seconds later, Herm was shaking his head, looking dejected. 

"What's wrong?" 

"He fired before I got into range. It's technically his kill." 

His kill? All I wanted to do was get home alive, and he was talking about KILLS! 

The road ahead was clear. It sloped downward, then sharply upward, and at the top 
of the hill was a traffic light. It was green. 

"I'm going to go for it." He floored the accelerator. We were still about 300 yards 
away. The car's engine shifted smoothly as we gained speed. The whining grew louder 
and louder. 

Still 100 yards away, the light turned yellow. If he slammed on the brakes now, we'd 
wind up in the middle of the intersection. It would take that long to stop. We were go- 
ing that fast. 

Instinctively, he kept the gas pedal to the floor. The light turned red. Cars were 
beginning to pull into the intersection. The speedometer read 90. 

Herm slammed his hand on the horn and yelled, "Passing through!" 

Perhaps it was the upward slope of the road that did it, but I'll probably never know. 
For once, I felt what it was like to fly in a car. 

Airborne, I glanced out the window, catching exasperated glares from the other 
motorists. I waved, trying to look inconspicuous. 

We landed with a thud, and the car began decelerating. When we were down to saner 
speeds (well, 70 seemed comparatively sane), I looked over at Herm and wiped the 
sweat off my forehead. We were both panting. 

"Well," he said, "I. . . I had to reach escape velocity in order to. . . No? Well, how 
about 1 had to make it through Stargate before the enemy vehicles could. . ." 

But I shook my head. 

Sensing my fear, he drove Hke a grandmother for the rest of the trip. When I got out, 
I could just barely say "thank you" to him. 

I went into the house and collapsed in my room. After a few minutes, I settled down 
to a nerve-calming game of Robot Attack. 

I have to release my frustrations, too, you know. S 
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Computer Systems Desks 



Reviewed by Randal L. Kottwitz 



Models CT707 (smaller) and CT709 

(larger) 

Suggested retail price: $119.95 and 

$149.95 respectively. 

Available from: O'Sullivan Industries 
19th and Gulf Streets 
Lamar, Missouri 
64759 

I was desperate! Bit by bit, my com- 
puter system had taken over my living 
room. It paid no attention to aesthetics 
and the pattern of organization it 
established for itself was nothing but 
inefficient. My neighbors commented 
that perhaps it was time 1 started col- 
lecting rent from the machine to justify 
the damage it had done to my living 
quarters. 

I decided the time had come to put 
an end to this injustice and to confine 
my computer system to the organiza- 
tion I wanted. 

I'd seen ads for computer desks in 
many magazines, but they either didn't 
allow for the versatility I desired or 
they demanded such a high price that 1 
felt as though I was buying a new 
couch. On an obscure "personal com- 
puter" page of one of the video 
magazines, I spotted a product release 
for two desks available from 
O'Sullivan Industries at affordable 
prices. The photos showed enough 
flexible nooks and crannies to stash all 
of my ATARI® equipment and a shelf 
large enough to properly support the 
large portable television 1 use as a 
monitor. 

No address or phone number was 
given in the release and it took several 
phone calls to the editorial offices of 
the magazine before I could locate 
O'Sullivan Industries. Once I had 
located the manufacturer, everything 
went like clockwork. Their helpful 
sales representative arranged for the 
model CT709 to be shipped out 
immediately. 
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MODEL CT709 



Of the two available models, the 
CT709 is the larger and more perma- 
nent. It features a desktop large 
enough to comfortably accommodate 

SoftSide 



most keyboards and printers; a 
removable, raised shelf to hold a 
monitor over the keyboard; and an 
open shelf and sliding drawer under the 




MODEL CT707 



desktop to accommodate disk drives, 
modems, interfaces, joysticks, etc.. — 
all of those things which had been 
creeping out from the computer area 
into my living space. The CT707 has a 
smaller desktop and no lower shelf. It 
does, however, contain a large storage 
drawer and raised shelf capable of ac- 
commodating a monitor and a printer. 
The more portable of the two units, it 
is mounted on black, dual-wheel 
casters. 

The day the large, heavy carton ar- 
rived, my heart jumped into my throat 
as its upacking yielded board upon 
board and several bags of dowels, 
screws, brackets, etc.. I had the sudden 
fear that I had taken on a project 
beyond my limited assembly skills. 
However, a quick reading of the in- 
structions eased my mind. It was a sim- 
ple assembly process I could conquer 
step by step. Within an hour, a friend 
and I had the desk standing proudly in 
the center of the room, ready to 
organize even the most unwieldy of 
microcomputer systems. Each piece of 
the desk was carefully numbered, 



diagrammed, and drilled in such a way 
that an assembly mistake would be 
nearly impossible. The illustrated in- 
structions left nothing out. A smile 
grew on my face as I realized they had 
even allowed enough slack in the 
design of the metal brackets used to 
hold the major pieces together to allow 
me to adjust for slight imperfections of 
edge finishing or warpage in the 
boards. In short, the process was ex- 
tremely simple and yielded an attrac- 
tive piece of organizational furniture. 

I heartily recommend these desks to 
those of you whose computer systems 
are threatening to take up more space 
than a new member of the family. The 
design of the units is such that they will 
accommodate Apple, ATARI® or 
(with shelf removed) TRS-80® 
equipment with no modification. With 
the upper shelf slipped out of its 
brackets, the unit looks very tempting 
as an office desk. 

A loud "bravo" to O'SuIIivan In- 
dustries for bringing aesthetics and 
organization to an otherwise ungainly 
mesh of electronic components. © 
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SELL YOUR 
PROGRAM 

AND KEEP 
IT TOO! 

One of the nicest things 
about selling your program 
to SoftSide is that it's still 
your program after we buy 
it. Actually, what we are 
buying is the right to 
publish your program once 
in our magazine and on 
subscription disk and tape. 
This is what we call "one- 
time rights." Three months 
after your program ap- 
pears in SoftSide, you are 
free to sell it again to 
anyone. And, now that it's 
been published, your pro- 
gram is worth more. So 
send today for a copy of 
our free author's guide and 
find out how you can sell 
your program and keep it 
too. 

Write to: 

SoftSide Publications 

Dept AG1 

6 South Street 

IVIilford, NH 03055 
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SCAPE 




FROM THE 



IITSGEONS 



OF the: 

OPS 




by Ray Sato 

Translations by Alex Lee and 

Rich Bouchard 

Encryption modifications by Rich 

Bouchard, William Kubeck, and 

Alan J. Zett 

Escape from the Dungeons of the 
Gods is a fantasy/adventure game for 
a 16K TRS-80® Model I/III, 
ATARI® 400/800, or Apple (with 
Applesoft). 

Along with several other rebels, you 
have been captured by the secret police 
of the evil and cruel King Safuis II. 
They have imprisoned you in a dismal 
prison cell in the legendary Dungeon of 
the Gods, while the king's forces con- 
tinue to wreak destruction on the 
populace outside. You must escape to 
aid in the rebellion against the king's 
cruel tyranny. 

Legends say that somewhere within 
the dungeon Hes the Chest of the Gods 
which holds the power to destroy the 
king and his forces. This and several 
other treasures are said to be guarded 
by powerful monsters which must be 
slain in order to gain access to the 
treasures. Take courage, and may the 
blessings of the gods go with you! 

Playing Notes 

The computer will always give you a 
brief description of where you are, 
what objects you can see, and what ex- 
26 



its are visible. You move and act by 
typing in simple commands, generally 
consisting of a verb and a noun. If the 
computer tells you that there is a sword 
in the room, for example, you might 
want to type in the command "GET 
SWORD". At a later time, you might 
then be able to use it to "FIGHT 
MONSTER" or for some other pur- 
pose. If you no longer want to carry it, 
you can "DROP SWORD" whenever 
you please. Since the computer looks 
only at the first three letters of the verb 
and the last three letters of the noun, 
you may use abbreviations such as 
"FIG TER" (for "FIGHT 
MONSTER") if you desire. Movement 
is accomplished by entering a single let- 
ter rather than a two-word command: 
N, S, E, W, U, or D for north, south, 
east, west, up, or down. Typing the 
single word "INVENTORY" (or 
"INV") will display a list of what you 
are carrying. 

Part of the challenge of any fan- 
tasy/adventure game such as this is to 
figure out what you are able to do in a 
particular situation. Therefore, you 
will not find a list of all the verbs which 
the computer can understand, or a list 
of all the objects that you may 
discover. You may find yourself 
frustrated by what seem to be dead 
ends, and end up getting killed in the 
process. This is all part of the adven- 
ture, and a test of your ingenuity and 
perseverance. 
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Program Notes 

The most obvious feature of the pro- 
gram listing is that a great deal of it 
looks like a garbled mess. The BASIC 
keywords are all there in their usual 
form, but the string assignment 
statements and DATA lines contain in- 
comprehensible garbage. This is 
because all the room descriptions, ob- 
ject names, monsters, and verbs have 
been encoded. This has been done to 
preserve the value of the game. Anyone 
who types an adventure program from 
a listing is bound to be disappointed in 
the game's playability, since the player 
has gained many clues about how the 
plot develops. So, even though the typ- 
ing is made somewhat more difficult by 
the scrambled words, we feel that this 
is the only reasonable way of 
publishing adventure programs in 
listed form. 

In next month's issue of SoftSide we 
will include a detailed write-up of the 
Machine Language encryption routines 
which were created to modify the nor- 
mal program listings. The encryption 
method is a simple one, which results 
in leaving punctuation unmodified, 
and inverting the order of the letters of 
the alphabet. This simple inversion 
process has the advantage of using the 
same routine to decode the text as was 
used to encode it. In Escape from the 
Dungeons of the Gods, the user's input 
is encoded, the internal searches and 
comparisons are done in encoded 
form, and then the response is decoded 
and printed by the subroutine at hne 5. 

In order to offset the proofreading 
problems created by this approach, we 
have included an expanded SWAT 
Table for the three versions of this pro- 
gram. (See the article SWM T elsewhere 
in this issue.) Instead of the normal 
12-line/500-byte SWAT parameters, 
we have used 5-line/200-byte 
parameters. This means that you must 
modify the first line of SWAT m order 
to generate a table to compare with 
ours. After merging SWAT'm the nor- 
mal way, but before running it, simply 
edit or retype line 32000, 60000, or 
65000 (depending on the version), 
changing "NU=12: B = 500" to 
"NU = 5: 8 = 200". This will provide 
an expanded SWAT Table, enabling 
you to more easily pinpoint typos. 



Variables 

A: Present room location. 
A$: Present room description. 
B$: Extended room description. 
C$: Room contents. 



D$: Room exits. 

D: Down destination. 

E: East destination. 

I$(x): List of objects. 

I(x): Object locations. 

M: Monster attacit indicator. 

M(x): Hit points of monsters. 

M$(x): List of monsters 

N: North destination. 

PO: Player's permanent hit points. 

PI: Player's present hit points. 

P2: Player's experience points. 

P3: Number of items carried by 

player. 

P4: Item status flag. 

P5: Player's strength level. 



P6: Item status flag. 

P7: Restored hit point counter. 

S0-S7: Item status flags. 

T: Temporary program counter. 

T$: Temporary string. 

TI: Time used. 

V$(x): List of verbs. 

VI: Verb input code. 

VI $: Verb input. 

V2: Noun input code. 

V2$: Noun input. 
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$ APPLESOFT BASIC « 








t 'DUNGEONS OF THE GODS' ♦ 
t AUTHOR: RAY SATO $ 
$ TRANSL: ALEX LEE * 


EXITS: EAST 

* « « slime;; CREATURi;n 


ATTACKING « * X" 




* (C) 1982 SOFTSIDE t 


COMMAND WAUEWANDl 

A LIGHTNINCv BOLT HIT 


S THE SLIME CREATURE 






THE SLIME (::reatijre attacks 




Jump to program initialization. 


IT MISSES 
YOU ARE IN; 






2 GOTO 2260 


A DARK l^-OOM.. 






Decode and print output. 


ITEMS YOU CAN SEE: RING 




4 IF P* = ■" THEN RETURN 

5 FOR P = 1 TO LEN (P$):II = ASC 


EXITS; EAST" 

* « * SLiMi;;; creature 


ATTACK I NCi « » * 




( HID$ (P«,P,N1)): PRINT CHR$ 








( ABS ((C155 » (II > C64)) - 








II));: NEH : PRINT : RETURN 








Encode Input. 








10 A« = "Z ILLN DRBS Z OZITV YIZ 


250 A$ = "GSV HFHTVLN XZHRNL DR6S 


6 V» = ": IF V0« = "" THEN RETURN 


HH GZYDV":N = 14:S = 3:N = 1 


Z OZITV HOLG NZXSRnV:N = 




0: GOTO 410 


28:M = 24: S = 22: GOTO 410 


7 FOR J = 1 TO LEN (VOOsII = ASC 1 


20 A* = "GSV GSILNV ILLN DR6S Z 


260 A$ = "GSV ORYIZIB":S » 23: SOTO 


( NID$ (V0*,J,N1)):V« = V* + 


HGZBFV L« GSV HLFGS DZOO* 


410 


CHR» 1 ABS ((C155 t (11 > C 


:N = 16:E = 13: GOTO 410 


270 A$ = "Z HZIP ILLN'-.E = 28j GOTO 


64)) - ID): NEXT : RETURN 


130 A« = "Z ILLN DRGS Z HNZOO REL 


410 




IB GZYOV":S = 9:K = 12:N = 1 


280 A$ = "GSV OZYLIZGLIB DRGS Z N 


Descriptions of Individual rooms. 


7:E = 14: GOTO 410 


VGZO 6ZY0V":S = 25;N = 27: GOTO 




40 A» = "GSV DRAZIN'H DLIPHSLK": 


410 


10 A$ = "GSV DVHG VMM LU Z KIRHLH 


S = 11:N = 13: GOTO 410 


290 A« = "Z EVIB MRI6B ZHU MFH66 


XVOO. 2 MLLI OVZNH NLIGS" 1 


50 A» = "Z ILLN DRGS H6ZRIH TLRN 


ILLN":S = 30: GOTO 410 


:B$ = "GSV NLLI RH OLXPVI*":E 


T FK":E = 16!U = 36: GOTO 41 


300 M = "Z EVIB OLHT XLIIR»Lr:N 


= 2: GOTO 410 





= 29;N = 3l!S = 34: GOTO 41 


20 A$ = "GSV VZHG VHH LU Z KIRHLH 1 


60 A» = "Z OZITV SZOO":S = 12:« = 





XVOO. Z NVGZO YLC ORVH LH 


15:E = 17: SOTO 410 


310 A$ = "Z YIRTSG XSZNYVI'iE = 3 


GSV T1LFH«":B» = "GSV YLC RH ! 


70 A« = "Z OZITV HGLIZTV ILLN'sS 


0:« = 32: GOTO 410 


OLXPVH":M = 1: GOTO 410 


= 13:H = 16:N = 21:E = 18: SOTO 


320 A* = "GSV XS2NYVI LU NVZGS"iN 


30 A» = "Z 6RHB KZHHZTV":N = 11:S 


410 


= 33:E = 31: BOTO 410 


= 4: GOTO 410 1 


80 A* = 'Z HNZOO ILLN DRGS H6ZRI 


330 A$ = "GSV XSZNYVI LU GSV TLHH 


40 A$ = "Z 6IRZHTF0ZI ILLN":N = 3 


H TLRUT FK":W = 17:N = 22:U = 


"sE = 32: GOTO 410 


: GOTO 410 


39: GOTO 410 


340 A$ = "Z MZIP XLIIRWLI":N = 30 


50 M = •! HGLIZTV ILLN":N = 8:H = 


90 A$ = "GSV NIZTLM ILLN":E = 20 


:H = 35: GOTO 410 


6: GOTO 410 


: GOTO 410 


350 A» = "Z HNZOO XSZHYVI DRGS Z 


60 A$ = "GSV DVZKLM ILLN"!E = 5: GOTO 


200 A$ = "Z XLNKOVGVOB WZIP SZOO" 


HGVVO MLLI 2YLEV BLF":E = 34 


410 


:H = 19:E = 21: GOTO 410 


: GOTO 410 


70 AJ = "GSV GIVZHFIV EZFQE":N = : 


MO A* = "Z DLIPHSLK DRGS Z DLLMV 


360 A$ = 'Z GRnB SZOO DRGS H6ZRIH 


12: GOTO 410 


M GZYOV":W = 20!E = 22:S = 1 


TLRMT WLDH":D = 15:E = 37: GOTO 


80 A$ = "Z HNZOO ILLN":S = 5:E = 


7: GOTO 410 


410 


9: GOTO 410 1 


20 A* = "Z GRHB HJFZIV ILLN":N = 


370 A* = "Z OLHT, HZIP XLIIRMLI": 


90 A« = "Z ILLN ORGS Z HGVVO WLLI 


25:S = 18:N = 21: GOTO 410 


S = 38!N = 40:H = 36:E = 39: 


RM GSV UOLLr:H = 8:E = 10: 5 


30 A$ = "Z IVXGZNTFOZI ILLN'sE = 


GOTO 410 


N = 13:S = 1: GOTO 410 


24:N = 26: GOTO 410 


380 At = "Z HGIZHTV, IVM ILLN. 6S 


100 A» = "GSV NFHRX SZOO':E = 11: 7 


40 A* = "GSV PRGXSVH'iH = 23:E = 


VIV RH Z YFGGLH LH GSV HLI6 


H := 9: GOTO 410 


25: GOTO 410 


S DZOO":N = 37: GOTO 410 
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390 A» = "Z HNZDO ILLN DRSS H6IR1 


590 IF B« < > "" THEN B« = B« + 


820 


IF « = THEN 970 


H TLRHT HLDM'sD = IBill = 37 j 


I I 


830 


IF N < > THEN 960 


BOTO 410 


600 IF LEFT$ (D»,l) = " " THEN 


840 A = H: PRINT "OK": IF A = 19 AND 


400 M = •! SFTV VNBIZHKV SZOO"!S 


D« = RIGHT* (D», LEN (D«) - 




H(3) > THEN N = 3 


= 37 


1) 


850 


IF A = 20 AND 11(2) > THEN 

N = 2 

IF A = 27 AND fl(4) > THEN 

11 = 4 

IF A = 32 AND H(5) > THEN 


Extended descriptions of current 
location. 


Describe current location, visible 


860 




Items, and available exits. 


870 


410 IF A = 1 AND SO = 1 THEN B« = 


610 HOHE : PRINT "YOU ARE IN:":P 




« = 5 


"GSV NLLI RH LKVH":N = 9 


« = At: GOSUB 4:P» = B«: GOSUB 


880 


GOTO 1830 


420 IF A = 2 AND SI = 1 THEN B$ = 


4: PRINT : PRINT "ITEHS YOU 


890 


IF E = THEN 970 


"BSV YLC RH LKVH" 


CAN SEE: ";:Pt = Ct: GOSUB 4 


900 


IF H < > THEN 960 


430 IF A = 35 AND SI = t THEM B$ 


: PRINT : PRINT "EXITS: "D$ 


910 A = E: PRINT "OK": GOTO 1830 


= "Z HBZRIXZHV OVZUH FK GSI 




920 


IF U = THEN 970 


LETS GSV HBWQ NLLI'sU = 9 


Describe monster, if present. 


930 A = U: GOTO 1830 


440 IF A = 9 AND S2 = I THEN B» = 




940 


IF D = THEN 970 


■GSVIV RH Z HGZRIHHV OVZNRH 


620 IF M < > THEN T» = " Z6GZ 


950 A = D: GOTO 1830 


T NLDN":D = 35 


XPRHT ♦ » t":P$ =■»»»"+ 


960 


r* = " YOLXPH GSV VCRG":P* = 


450 IF A = 25 AND S6 = 1 THEN B» 


Ht(l1) + Tt: GOSUB 5 




"GSV " + N*(I1) + T*: GOSUB 5 


= "GSVIV RH Z HGZRIXZHV NLD 






; GOTO 1830 


H":D = 29 


Get and interpret command. 


970 P« = "GSVIV RH HL DZB GL TL G 


460 IF A = 29 AND S6 = 1 THEN Bt 






SZG HRIVXGRLH": GOSUB 4: GOTO 


= "Z HGZRIXZHV VCGVHNH GSIL 


630 PRINT : INPUT "COHMAND "jV0» 




1830 


FTS BSV ILLU LU GSRH ILLN':U 


: GOSUB 6 


980 


IF V2 = 2 AND A = 2 THEN Pt = 


= 25 


640 FOR T = 1 TO 7: IF V$ = LEFT* 




"GSV YLC RH UZHBVnVH GL GSV 


470 IF A = 12 AND S3 = 1 THEN Bi 


(V$(T),1) THEN V» = V$(T) 




UOLLl": GOSUB 4: GOTO 1830 


= "GSVIV RH 'Z HVXIVG KZHHZT 


650 NEXT T 


990 


IF V2 = OR !I(V2) < > A AND 


V OVZHRHT HLFGS":S = 7 


660 IF n = "FK- THEN V» = "FK " 




HV2) < > 0) THEN PRINT "I 


480 IF A = 40 AND S4 = THEN B$ 






DON'T SEE IT HERE": GOTO 18 


= "Z MLIGS NLLI RH OLXPVN' 


670 IF LEN (V*) < 3 THEN 610 




30 


490 IF A = 40 AND S4 = 1 THEN B$ 


680 Vl$ = LEFT* (V»,3):V2» = RIGHT* 


1000 


IF I(V2) = THEN PRINT "Y 


= "GSV NLIBS NLLI RH NVHGIL 


(Vt,3): IF V2t = "VHG" THEN 




QU ARE ALREADY CARRYING IT"; 


BVN";N = 50 


V2* = "LHH" 




GOTO 1830 




690 FOR T = 1 TO 23: IF VI* = LEFT* 


1010 


IF P3 = 10 THEN PRINT "YOU 


Generate list of visible Items and 
available exits for current location. 


(V*(T),3) THEN VI = T 
700 NEXT : IF VI = THEN P* = " 
R WLH'G FNNVIHGZHN BLF": GOSUB 


1020 


CAN'T CARRY ANYTHING HORE": 
GOTO 1830 
I(V2) = 0:P3 - P3 + 1: PRINT 




5: GOTO 1830 




"OK": GOTO 1830 


500 A* = A$ + ".": FOR T = 1 TO 2 


710 FOR T = 1 TO 21: IF V2* = RIGHT* 


1030 


IF V2 = OR I (V2) < > THEN 


l! IF A = KT) THEN C« = Ci + 


(It(T),3) THEN V2 = T 




PRINT "I DON'T HAVE IT": GOTO 


I»(T) + ", ■ 


720 NEXT T 




1830 


510 NEXT T: IF C» < > "" THEN C 


730 ON VI GOTO 750,780,820,890,9 


1040 P3 = P3 - 1:I(V2) = A: PRINT 


$ = LEFT! (C», LEN (C«) - 2 


20,940,980,1030,1050,1090,11 




"OK': GOTO 1830 


) 


90,1300,1830,1410,1520,1560, 


1050 


HONE : PRINT "PLAYER'S INVE 


520 IF C» = "* THEN C« = "HLGSRH 


1600,1660,1690,1720,1760,180 




NTORY" 


T" 


0,1820 


1060 


FOR T = 1 TO 21: IF KT) = 


530 IF N < ) THEN D« = D» + " 


740 GOTO 1830 




THEN P« = I*(T): GOSUB 4 


NORTH" 




1070 


NEXT 


540 IF S < > THEN D» = D» + " 


Command handler routines. 


1080 


GOTO 1920 


SOUTH' 




1090 


IF M = THEN P* = "GSVIV Z 


550 IF E < > THEN D» « D« + " 


750 IF N = THEN 970 




IVN'G ZMB NLNH6VIH SVIV": GOSUB 


EAST" 


760 IF A = 7 AND H > THEM 960 




4: GOTO 1830 


560 IF N < ) THEN D» = D» + " 


770 A = N: PRINT "OK": GOTO 1830 


1100 


IF A = 20 AND P4 = THEN P 


NEST" 


780 IF S = THEN 970 




* = "BLF XZM'B ZGGZXP RH GSV 


570 IF D < > THEN D« = Dt + " 


790 A = S: IF A = 7 AND N(l) > THEN 




WZIP"! SOSUB 4: GOTO 1830 


ODHN" 


« = 1 


1110 


INPUT "«1TH HHICH WEAPON? " 


580 IF U < > THEN D» = D$ + " 


BOO PRINT "OK" 




iVO*: GOSUB 6:V2* = Vt: IF LEN 


UP" 


810 GOTO 1830 

1 




(V2*) < 3 THEN 1110 
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1120 V2 = 0!V2$ = RIGHT* (V2»,3) 
: FOR T = 1 TO 21: IF V2» = 
RIGHT* (I»(T),3) THEN V2 = 
T 

1130 NEXT : IF V2 = OR I(V2) < 
> THEN P» = "BLF HLH'G SZ 
EV GSZ8 DVZKLM": GOSUB 4: GOTO 
1830 

1134 IF V2 < > 6 AND V2 < > 14 
THEN P* = "GSZG RHH'G Z DVZ 
KLH': GOSUB 4: GOTO 1830 

1140 IF V2 = 14 AND « = 4 THEN P 
< = "GSV UOZNRHT HDL IN PROOV 
N GSV HORNV XIVZ-GFIV: GOSUB 
4!P2 = P2 + 15:H = 0:H(4) = 
0: GOTO 1830 

1150 IF INT (100 i RND (D) + 
1 < (40 - P5) THEN P* = "BLF 
NRHHVN GSV ' * H$(N): GOSUB 
4! GOTO 1830 

1160 P» = "BLF SRG GSV " + «♦(«).• 
GOSUB 4:M(H) = H(H) - 5: IF 
H(H) < = THEN P« = "RG RH 
HVZW": GOSUB 4iH(H) « 0:P2 = 
P2 +15! IF H = 5 THEN P2 = 
P2 + 35 

1170 IF H(H) = THEN « = 

1180 GOTO 1830 

1190 T = V2: IF T = OR I(T) < > 
THEN P» = "R NLM'G S2EV GS 
2G": GOSUB 4: GOTO 1830 

1200 IF T < > 1 AND T < > 12 AND 
T < > 16 THEN P» = 'EVIB HG 
IZHTV. HL6SRHT SZKKVMH": GOSUB 
4: GOTO 1830 

1210 IF T = 1 THEN P» = "HLGSRNT 
SZKKVMH'! GOSUB 4! GOTO 183 


1220 IF T = 12 AND II = 5 AND P6 < 
4 THEN P» = "GSV YOZXP NIZTL 
N IVUOVXGH GSV ORTSGNRHT YLO 
G RMGL GSV DZOO'i GOSUB 4!P6 
= P6 + h GOTO 1830 

1230 IF T = 12 AND P6 > 2 THEN P 
% = "NLGSRMT SZKKVHH'i GOSUB 
4: GOTO 1830 

1240 IF T = 12 AND H = THEN P$ 
= "Z ORTSGMRHT YLOG RH IVOV 
ZHVH YB GSV DZHN"! GOSUB 4!P 
6 = P6 + I: GOTO 1830 

1250 IF T = 12 THEN P6 = P6 + l! 
P* = "Z ORTSGHRHT YLOG SRGH 
GSV " + «»(«)! GOSUB 4iH(N) = 
11(H) - 15: IF H(H) < = THEN 
N(M) = 0:P2 = P2 + ISiN = 0: 
PI = "RG RH NVZH": GOSUB 4 

1260 IF T = 12 THEN 1830 
1270 IF T = 16 AND A = 9 AND S2 = 
THEN 52 = 1:P« = "Z HVXIVG 



HGZRIXZHV HLDM ZKKVZIH": GOSUB 
4: GOTO 1830 

1280 IF T = 16 AND A = 12 AND S3 
= THEN S3 = 1:P$ = "Z HVX 
IVG ILLN 6L GSV HLFGS ZKKVZI 
H": GOSUB 4: GOTO 1830 

1290 P$ = "HLGSRHT SZKKVHH": GOSUB 
4: GOTO 1830 

1300 IF V2 = 2 AND Id) = AND 
SI = THEN SI = 1:P» = "GSV 
NVGZO YZI SVOKVH. GSVIV RH 
Z PVB RH GSV YLC"! GOSUB 
4:1(3) = 2: GOTO 1830 

1310 IF V2 = 2 AND Id) = AND 

51 = 1 THEN P* = 'GSV YLC RH 
ZOIVZNB LKVH": GOSUB 4i SOTO 

1830 

1320 IF V2» = "LLP AND A = 9 AND 

52 = 1 THEN P* = "GSV MLLI R 

H ZOIVZWB LKVH": GOSUB 4t GOTO 
1830 

1330 IF V2« = "LLI" AND A = 9 AND 
S2 = THEN P* = "GSV NLLI M 
LDH HVVNH NZTRXZOOB OLXPVN": 
GOSUB 4: GOTO 1830 

1340 IF V2 = 21 AND (A = 1(21) OR 
1(21) = 0) THEN ?i = "ZOO 6S 
ZG BLF XZH HVV RH Z EVIB YIR 



TS6 ORTSG RUHRNV 6SV XSVH6 
■: GOSUB 4: GOTO 1830 

1350 IF V2t = "LLI" AND SI » THEN 
P* = 'BLF ZIVH'B H6ILHT VULF 
TS 6L LKVH RG": GOSUB 4i 60T0 
1830 

1360 IF V2< = "LLI" AND A = 1 AND 
1(3) < > THEN P« = 'BLF H 
LH'G SZEV GSV PVB': GOSUB 4i 
GOTO 1830 

1370 IF V2« = "LLI" AND A = 1 AND 
I (3) =0 AND SO = 1 THEN P« = 
'GSV MLLI RH ZOIVZHB LKVH': GOSUB 
4: GOTO 1830 

1380 IF V2* = "LLI" AND A = 1 AMD 
1(3) =0 AND SO = THEN SO = 
l!P$ = "GSV HLLI RH HLD LKVN 
■i GOSUB 4: GOTO 1830 

1390 IF V2* = 'LLI' AND A = 40 AND 
1(3) =0 THEN P$ = "GSV PVB 
HLVHN'G URG"i GOSUB 4: 60T0 
1830 

1400 P» = "R XZH'G ML GSZG": GOSUB 
4: GOTO 1830 

1410 IF V2 = OR I(V2) < > THEN 
P* = "BLF MLM'G SZEV GSZG"> GOSUB 
4: GOTO 1830 




•HEY, HARRY! I'VE GOT ANOTHER ONE WHO'S BEEN TRYING TO FOLLOW 
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1420 IF V2 = 17 AND A = 12 AND S 


1510 GOTO 1030 


HGIL6VN GSV OLXPVN HLLI': GOSUB 


3 = THEN S3 = IsP* = 'Z GI 


1520 IF V2» = "GFV AND A = 12 AND 


4:S4 = 1:I»(20) = "VNKGB UOZ 


VZHFIV EZF06 RH VCKLHVM': 60SUB 


S3 = THEN S3 = IsPI = 'Z H 


HP':S5 = li GOTO 1830 


4:P3 = P3 - l!l$(17) = ":I( 


VnVG KZHHZTV GL GSV HLFGS Z 


1640 IF V2 = 20 AND S5 = THEN 


17) = - A: GOTO 1830 


KKVZIH': 6DSUB 4: GOTO 1830 


P« = 'GSV ZXRN YFYYOVH RHGL 


1430 IF V2 = 17 AND A = 9 AND S2 


1530 IF V2t = "GFV AND A = 12 AND 


GSV UOLLI': GOSUB 4:85 = 1:1 


= THEN S2 = 1;P» = 'Z HBZ 


S3 = 1 THEN S3 = 0:Pt = "GSV 


»(20) = "VNKGB UOZHP": GOTO 


RUZHV MLDH RH VCKLHVN': 6DSUB 


HLFGS KZHHZTV XOLHVN': GOSUB 


1830 


4SP3 = P3 - 1:I$(17) = "ill 


4: GOTO 1830 


1650 P» = "R NLH'6 FNNVIH6ZHH DSZ 


17) = - A! GOTO 1830 


1540 IF V2$ = "GLH' AND A = 38 THEN 


6 BLF DZN6 NV GL NL": GOSUB 


1440 IF V2 = 17 AND A = 40 AND S 


A = liP$ = "BLF ZIV GVOVKLIG 


4: GOTO 1830 


4 = THEN S4 = 1:P$ = "GSV 


Vtt GL ....': GOSUB 4: GOTO 1 


1660 IF V2 = OR I(V2) < > THEN 


NLI6S HLLI RH NVH6ILBVH*: GOSUB 


830 


Pt = "R NLN'G SZEV GSZG": GOSUB 


4:P3 = P3 -.l!ll(17) = ■•:!( 


1550 P» = "R NLH'6 FHNVIHGZHN DSZ 


4: GOTO 1830 


17) = - fl! GOTO 1830 


6 BLF DZH6 NV GL NL's GOSUB 


1670 IF V2 = 11 THEN I(V2) = - 


1450 IF V2 = 17 AND H < > THEN 


4: GOTO 1830 


A:I»(V2) = "":P3 = P3 - 1:56 


P» = "BSV VCKOLHREV YZOO SR6 


1540 IF V2 = OR I(V2) < > THEN 


= 1:P$ = "Z HGZRIXZHV NLDH 


H GSV " + HKH): GOSUB 4!N(N 


P» = "R MLH'G SZEV GSZG": GOSUB 


RH VCKLHVN": GOSUB 4: GOTO 1 


) = N(H) - 15:I«(17) = ••iH 


4; GOTO 1830 


830 


17) = - A:P3 = P3 - l! IF H 


1570 IF V2 = 4 THEN P5 = P5 - INT 


16B0 P» = "R XZH'G NL GSZG": GOSUB 


< = THEN H<H) = 0:T = Hs 


(5 » RND (D) - 3:P» = "BLF 


4: GOTO 1830 


H = 0:P2 = P2 + 15!P« = "RG 


HFNNVNOB UVVO NFKS DVZPVI"! 


1690 IF V2 < > 10 THEN P» = "R 


RH HVZW: GOSUB 4: GOTO 1830 


GOSUB 4:1(4) = - A:I»(4) = 


XZn'G NL GSZG': GOSUB 4: GOTO 


1460 IF V2 = 17 AND T = 5 THEN P 


■■;P3 = P3 - 1: GOTO 1830 


1830 


2 = P2 + 35 


1580 IF V2 = 9 THEN P5 = P5 + 5 + 


1700 IF « = 1 THEN «(«) = 0:T» = 


1470 IF V2 = 17 AND N < > THEN 


INT (5 » RND (D) + IsPt = 


" RH XSZINVN":P$ = "GSV " + 


P$ = "GSV YZOO VCKOmVN ZTZR 


■BLF HFNHVHDB UVVO NFXS H6IL 


H$(M) + T$: GOSUB 4iH = 0:P2 


HHG GSV H6LHV DZOO': GOSUB 4 


HTVI"i GOSUB 4:1(9) = - Ail 


= P2 + 15: GOTO 1830 


!l»(17) = ••iUn) = 0:P3 = 


$(9) = "":P3 » P3 - 1: GOTO 


1710 PRINT "OK": GOTO 1830 


P3 - 1 


1830 


1720 IF V2 < > 18 THEN P» = "R 


1480 IF V2 = 17 THEN 1830 


1590 P$ = "HLN'G YV IRNRHFOLFH": GOSUB 


XZH'G IVZH GSZG": GOSUB 4i GOTO 


1490 IF V2 = 20 THEN P» = "GSV U 


4: GOTO 1830 


1830 


OZHP HSZG6VIVN RHGL NRODRLHH 


1600 IF V2 = OR I(V2) < > THEN 


1730 IF 1(18) < > THEN P» = " 


LU KRVXVH": GOSUB 4:1(20 


P$ = "R NLN'G SZEV GSZG": GOSUB 


BLF NLN'G SZEV GSV HXILOO": GOSUB 


) = - A:P3 = P3 - l!lt(20) = 


4: GOTO 1830 


4: GOTO 1830 


■"! GOTO 1830 


1610 IF V2 = 4 THEN PRINT "OK." 


1740 IF « = 3 THEN T» = " RH NVH 


1500 IF V2 = 13 AND H = 2 THEN I 


:It(4) = ■":1(4) = - A:P3 = 


GILBVN"iPi = "GSV • + Ht(N) + 


(13) = - AjH(2) = 0:T« = " 


P3 - l! GOTO 1830 


T$: GOSUB 4:P3 = P3 - 1:1(18 


SZH EZHRHSVN":P$ = "GSV " + 


1620 IF V2 = 9 THEN PRINT "DK." 


) = - A:I»(18) = "":«(«) = 


NKH) * Tti GOSUB 4: It (13) = 


il«(9) = "":I(9) = - AiP3 = 


0:P2 = P2 + 15iN = 0: GOTO 1 


"":I(13) = - A:H = 0:P2 = P 


P3 - 1: GOTO 1830 


830 


2 + 15:P3 = P3 - 1: GOTO 1B3 


1630 IF V2 = 20 AND S4 = AND A 


1750 P» = "GSV HXILOO HZBH: IVZHR 





= 40 THEN PI = "GSV ZXRN NV 


NT GSV NZTRX HKVOORNHXIRYVN 
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LH GSRH SLOB HLXFNVHe DfiOO 


0,220,230,240,250,260,270,28 


XZFHV 6SV KVHGIFX6RLH LU Z 


0,290,300,310,320,330,340,35 


HB 1V« HIZTLH RH BLFI KIVHVH 


0,360,370,380,390,400 


XV.": 60SUB 4: GOTO 1920 


1980 P$ = "BLF SZEV VHXZKVH UILN 


1760 IF V2 < > 5 THEN PRINT "N 


GSV NFHTVLH LU GSV TLNH!": GOSUB 


HAT?'! GOTO 1830 


4 


1770 IF 1(5) < > THEN P» = 'B 




LF HLH'G SZEV RG": BOSUB 4: GOTO 
1830 


Calculate and display player ratings. 


1780 IF P4 = 1 THEN P$ = "BLFI 




ZNK RH ZOIVZMB LN': GOSUB 4: 


1990 PRINT "TOTAL ESCAPE TIHE =" 


GOTO 1830 


TI 


1790 P4 = l!l«(5) = "ORG " + I$(5 


2000 IF 1(21) < > THEN P» = ■ 


): GOTO 1830 


BLF HRHH'G TV6 GSV XSVH6, 6S 


1800 HOHE : PRINT "PLAYER'S STAT 


V IVYVOORLH DROO YV XIFHSVN! 


US:" 


!l": GOSUB 4: GOTO 2140 


1810 PRINT "CURRENT HIT POINTS: " 


2010 P2 = P2 + 30: IF 1(8) =0 THEN 


PI: PRINT "STRENGTH LEVEL: "P 


P2 = P2 + 30 


5: PRINT "EXP. POINTS: ■P2: GOTO 


2020 IF 1(15) = THEN P2 = P2 + 


1920 


30 


1820 HOHE : PRINT "GAHE 0VER":P2 


2030 IF 1(21) = THEN P2 = P2 + 


= P2 - 30: GOTO 2010 


100 




2040 PRINT "FINAL SCORE: ■P2" OU 


Update player status and conduct 


T OF A POSSIBLE 300" 


combat If appropriate. 


2050 PRINT "RANKING: "; 




2060 IF P2 = 300 THEN PRINT "EX 


1830 TI = TI + 1: IF PI < PO THEN 


PERT ADVENTURER": GOTO 2140 


P7 = P7 + .2: IF P7 = 1 THEN 


2070 IF P2 > 280 THEN PRINT "CL 


P7 = 0:P1 = PI + 1 


ASS A EXPLORER"! GOTO 2140 


1840 IF M = THEN 1940 


2080 IF P2 > 250 THEN PRINT "CL 


1850 IF 1(19) =0 THEN 1940 


ASS B EXPLORER"! GOTO 2140 


18i0 T = INT (100 » RND (D) + 


2090 IF P2 > 200 THEN PRINT "CL 


1: IF T < 20 THEN 1940 


ASS C EXPLORER"! GOTO 2140 


1870 T« = " Z6GZXPH"!P$ = "GSV " + 


2100 IF P2 > 150 THEN PRINT "FI 


H$(n) * T$: GOSUB 4 


RST CLASS SCOUT": GOTO 2140 


1880 T = INT (100 t RND (D) + 


2110 IF P2 > 100 THEN PRINT "NO 


1: IF T < 30 THEN PRINT "IT 


VICE SCOUT": GOTO 2140 


HISSES": GOTO 1940 


2120 PRINT "BEGINNER": GOTO 2140 


1890 PRINT "IT HITS Y0U":P1 = PI 




- 10: IF 1(7) =0 THEN PI = 


2130 PRINT "YOU ARE DEAD!!!": GOTO 


PI + 5 


2140 


1900 IF PI < THEN 2130 




1910 GOTO 1940 


"Play again?" routine. Restart or 
clean up and end. 


1920 GET TI 




1930 GOTO 1950 




1940 FOR 11 = 1 TO 1500: NEXT 


2140 VTAB 22: CALL - 958: PRINT 


1950 FOR T = TO 


"NOULD YOU LIKE TO TRY AGAIN 




? (Y/N)";: GET INI 


Initialize for new turn and jump to 


2150 IF INI = "Y" THEN GOTO 218 


appropriate room description. 







2160 IF INI < > "N" THEN 2140 


1960 BT = 1:N = 0:S = 0!E = 0:W = 


2170 HOHE : END 


0:U = 0:D = 0:A» = ■"!B» = " 




■:« = "•:D» = •":V1 = 0!V2 = 


Initialize workspace. Read in items, 


0:V< = ■":V1» = ""!V2$ = "" 


verbs, and monsters. 


1970 ON A GOTO 10,20,30,40,50,60 




,70,80,90,100,110,120,130,14 


2180 HORE : CLEAR i DIfl II (21), I 


0,150,160,170,180,190,200,21 


(22),H(5),N»(5),V«(23) 



FOR IT!! 



Have you ever written a 
program that you w/anted to 



sell, but didn't because you 
were afraid it wasn't good 
enough? Well, I ask you, 
just what is "good 
enough"? If you're submit- 
ting an arcade game to a 
commercial software 
house, "good enough" 
means machine language, 
high speed, flashy 



graphics, and fancy copy- 
protection. In that league, 
"good enough" is 
downright exotic. On the 
other hand, if you're sub- 
mitting to SoftSide , "good 
enough" is a little closer to 
home. Not that we'll 
publish just anything, mind 
you. We do have firm stan- 



dards and the programs we 
accept must be well- 
written, interesting, and in- 
formative. It's just that we 
don't have to come up with 
Super Raster Invader Man 
every month, and if we 
don't, you don't. So your 
program may just be "good 
enough." If it is, we'll pay 



for it, so why not let us 
take a look at it? You'll find 
submission guidelines 
listed in this issue. Go for 
it. It's easier than you 
think. Write to: 

SoftSide Publications 

Dept AG1 

6 South Street 

Milford, NH 03055 
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2190 FOR T = 1 TO 21: READ I$(T) 


IRE VILLAGE. YOUWIST ESCAPE 


Item, Verb, and Monster data. 


,HT): MEXT 


FROH THE DUNGEON AND HELP 




2200 FOR T = 1 TO 23; READ V«(T) 


THE REBELLION DEFEAT THE KIN 


2410 DATA NVGZO YZI,2,NVGZ0 YLC, 


i NEXT 


G.'; 


-2,PVB,-2,KLGRLH1,4,YIZHH OZ 


2210 FOR T = 1 TO 5; READ «»(T), 


2370 PRINT • HERE IN THE DUHGEO 


NK,5,0ZHXV,6,HSRV0H,6,YZI LU 


«m: NEXT 


N, LEGENDS SAY THERE IS A SP 


K0ZGRHFN,7,KL-GRLH2,8,U0F6V, 




E-CIAL CHEST CALLED THE CHES 


lO.XLKKVI XLRN,11,DZHN1,13,N 


Establish player strength and hit 


T OF THE 60DS,HHICH HAS THE 


ZTRX «FHG,14,U0ZNRNT HDLI«,1 


points. Jump to first room. 


PONER TO DESTROY THE KING AN 


6,1HLAVR HRZNLHHH,19,DZHH2,2 




D ALL HIS FORCES. YOU HUST 


1,VCK0LHREV YZ00,23,HXIL00,2 


2220 FOR T = 1 TO 15: PO = PO + INT 


FIND THIS CHEST AND SEVERAL 


6,IRHT,27 


(2 t RND (11) + 1: NEXT 


OTHER TREASURES'! 


2420 DATA UOZHP LU ZXRN,28,XSVHG 


2230 PI = PO 


2380 PRINT ' HIDDENIN THE DUNGEO 


LU GSV TLNH,33 


2240 FOR T = 1 TO 5:P5 = P5 + INT 


N. BUT BEHARE! SEVERAL POH-E 


2430 DATA HLIGS,HLF6S,DVH6,VZH6, 


(5 t RND (D) * 1: NEXT 


RFUL HOKSTERS PROTECT THE CO 


FK ,HLDn,TVG,NILK,RHEVn6LIB, 


2250 A = 1;N1 = 1:C155 = 155;CM = 


NTENTS OF THIS DUNGEON AND 


ZG6ZXP,DZEV,LKVN,0LLP,GSILD, 


64: GOTO 10 


YOU HILL BE FORCED TO SLAY 


KFHS,«IRHP,KLFI,RHHVI6,K0ZB, 




THEN IF YOU HEET THEN." 


IVZN,0RTS6,H6ZGFH,JFR6 


Display Introduction and 


2390 PRINT : PRINT : PRINT TAB( 


2440 DATA XSILNZGRX HHZPV,15,Y0Z 


Instructions. 


9) 'PRESS ANY KEY TO BEGIN';: 


XP XFYV,20,IVN HIZTLH,25,H0R 




GET T* 


NV XIVZGFIV,20,TRZHG YOZXP H 


2260 HONE : PRINT s PRINT TAB( 
3) 'ESCAPE FROH THE DUN6EDN 


2400 GOTO 2180 


IZTLN,35 


APPLE SWAT TABLE FOR: 




F THE GODS" 


ESCAPE FROM THE DUNGEONS OF THE GODS 1 


2270 PRINT TAB( 15) "BY RAY SATO 


(Modified Parameters: NU = 5, B = 200) 




": PRINT TAB( 6) "APPLE TRAN 
SLATION BY ALEX LEE" 
2280 PRINT 


LINES SWAT CODE LENGTH 


LINES SWAT CODE LENGTH 


2-7 ZE 177 


1350 - 1370 US 204 


2290 VTAB 7: PRINT " FOR YEARS 


10 - 30 TR 236 


1380 - 1410 LX 219 


, THE SHALL HEDIEVAL TONN 


40-80 IT 180 


1420 - 1440 RZ 284 


OF ALVARD HAS RULED BY A KIN 


90 - 120 m 243 


1450 - 1470 QZ 269 


D NAN, KING SAFUIS I. HOHEVE 


130 - 160 AJ 205 


1480 - 1500 PP 233 


R, HHEN HE DIED, HIS SONBECA 


170 - 210 IH 260 


1510 - 1540 HP 226 


HE THE NEH RULER. KING SAFUI 


220 - 250 LD 204 


1550 - 1570 BF 209 


S II NASA"; 


260 - 300 MO 217 


1580 - 1610 U6 238 


2300 PRINT ■ HARSH, CRUEL HAN HH 


310 - 350 Be 232 


1620 - 1640 PL 237 


TURNED ALVARD IN-TO A CITY 


360 - 390 FS 252 


1650 - 1680 LB 231 


OF TERROR AND DESTRUCTION.' 


400 - 440 UX 237 


1690 - 1730 SI 230 


: PRINT 


450 - 480 RC 233 


1740 - 1750 TG 259 


2310 PRINT ' YOU AND SEVERAL 


490 - 530 AP 180 


1760 - 1800 AF 179 


THER CITIZENS OF THETOUN HAD 


540 - 580 QL 119 


1810 - 1850 SR 187 


FORHED A SHALL ARHY TO REBE 


590 - 620 OY 201 


1860 - 1900 QB 175 


L flSAINST THE EVIL RULER, 


630 - 670 RU 106 


1910 - 1950 IX 56 


BUT ON THE DAY BEFORE YOUR 


680 - 720 KL 171 


1960 - 1970 CS 245 


FIRST ATTACK ON THE KING, 


730 - 770 SA 176 


1980 - 2010 GT 205 


SAFUIS' SECRET POLICE CAPTUR 


780-820 DA 70 


2020 - 2060 PB 149 


ED YOU'; 


830 - 870 m 108 


2070-2110 HR 187 


2320 PRINT " AND IMPRISONED YOU 


880 - 920 NO 70 


2120 - 2160 OH 147 


IN THE LEGENDARY DUNGEON OF 


930 - 970 VV 150 


2170 - 2210 TU 120 


THE GODS." 


980 - 1010 NB 220 


2220 - 2260 UF 156 


2330 PRINT : PRINT TAB( 7)'PRES 


1020 - 1060 OH 168 


2270 - 2290 OK 238 


S ANY KEY TO CONTINUE") 


1070 - 1110 LK 184 


2300 - 2310 BY 288 


2340 GET T« 


1120 - 1140 EV 259 


2320 - 2360 KR 321 


2350 HONE : VTAB 5 


1150 - 1190 PJ 244 


2370 - 2370 OE 212 


2360 PRINT ■ YOU ARE NON BEIM 


1200 - 1220 OT 205 


2380 - 2390 i? 204 


6 HELD IN A DISHAL PRISON C 


1230 - 1250 US 242 


2400 - 2410 DU 244 


ELL NHILE THE KING'S FORCES 


1260 - 1300 TX 292 


2420 - 2440 JH 269 


CON-TINUE TO DESTROY THE ENT 


1310 - 1340 YK 304 
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t($t($$tt($$tt$$ttt(tt$U«(ttt 

t ATARI BASIC * 

$ 'DUNSEONS OF THE GODS" « 
$ AUTHORt RAY SATO « 

» (C) 1982 SOFTSIDE « 

Initialize variables and jump to 
program Initialization. 

1 IW=0:H1M:N2=2:W*3;H4=4:H5=5!L1=970 
:L2=1830:L3=960:L4=5030:DIH 0K«(2)!0t!$ 
="0K' 

2 60T0 2260 

Decode and print output. 

4 IF P«="" THEN RETURN 

5 FOR P=M1 TO LEN(P») -.PRINT CHR$(ABS(( 
lB7t(P*(P,P)>"8"))-ASC(P«(P,P))));!NEK 
T P: PRINT : RETURN 

Encode input. 

6 V«="":IF V0«="" THEN RETURN 

7 FOR J=N1 TO LEN(VO$):V$(LEN(V$)tNl)= 
CHR$(ABS((187t(V0»(J,J)>"8"))-ASC(V0$( 
J,J)))):NEn JiRETURN 

Descriptions of individual rooms. 

10 A»="6SV DVHB VMH LU Z KIRHLM XVOO 
. I NLLI 0V2NH HLI6S"!B»="gSV NLLI RH 
0LXPVN":E=N2: RETURN 

20 A$='SSV VZH6 VHN LU Z KIRHLH XVOO 
. z NV6Z0 YLC ORVH LH 6SV TILFHN":B»=" 
gSV YLC RH 0LXPVH":H=N1:RETURN 
30 Ai="Z BRHB KZHHZTViNMhSMsRETURN 

40 A$="Z 6IRZNTF0ZI ILLN":N=N3:RETURN 
50 A»="Z H6LIZTV ILLN":N=8:N=6: RETURN 
60 A$='6SV DVZKLM ILLN":E=5: RETURN 
70 A$="6SV BIVZHFIV EZF06":N=12:RETURN 

BO A$='Z HNZOO ILLN":S=5:E=9: RETURN 

90 Ai='Z ILLN DRBS Z H6VV0 HLLI RH6SV 

U0LLI":H=B:E=10:N=13:S=N1:RETURN 

100 A»='6SV NFHRX SZ00":E=11:N=9!RETUR 

N 

110 A$="Z ILLN DRBS Z OZITV YIZHH GZY 

0V:N=14:S=N3:N=10:RETURN 

120 A$="6SV BSILdV ILLN DR6S Z HSZ 

6FV LH 6SV HLF6S DZ00":N=16!E=13:RETUR 

N 

130 A$="Z ILLN DRBS Z HNZOO RELIB 6ZY 

0V":S=9!H=12!N=17:E=14:RETURN 

140 A$='6SV DRAZIN'H DLIPHSLK":S=11:N= 

13:RETURN 

150 A<='Z ILLN DRBS HBZRIH TLRNT FK' 

:E=16:U=36: RETURN 




irtr* 






ft #ft fc I ils*S ^ Ml A -W' i i* ♦ "SC SlJ'ft^-SW 







160 A»="Z OZITV SZ00":S=12:N«15:E=17:R 

ETURN 

170 AJ="Z OZITV HBLIZTV ILLN':S«13:N=1 

6: N=21:E=1B: RETURN 

IBO A$='Z HNZOO ILLN DRBS HBZRIH TLR 

NT FK';N= 17: N=22:U=39: RETURN 

190 A»="6SV NIZTLN ILLN":E=20:RETURH 

200 A«='Z XLHKOVBVOB NZIP SZO0":N=19:E 

=21: RETURN 

210 A$="Z DLIPHSLK DRBS Z DLLHVH BZY 

0V":H=20:E=22:S=17:RETURN 

220 A$="Z BRHB HJFZIV ILLN":N=25:S=18! 

H=21: RETURN 

230 A«="Z IVX6ZHTF0ZI ILLN":E=24:N=26: 

RETURN 

240 A»="fiSV PRBXSVH":ll=23:E=25iRETURN 

250 A»='BSV NFHTVLH XZHRNL DRBS Z OZI 

TV HOLB NZXSRHV":N=28!N=24;S=22:RETURN 

260 A*="6SV 0RYIZIB":S=23!RETURN 

270 A$='Z NZIP ILLN" :E=28: RETURN 

280 A»="6SV OZYLIZBLIB DRBS Z NVBZ06ZY 

0V":S=25:N=27:RETURN 

290 A$="Z EVIB NRIBB ZNN NFH6B ILL 

N':S=30: RETURN 

300 A«='Z EVIB OLHT XLIIRNLr:N=29:N=3 

1:S=34: RETURN 

310 A$="Z YIRTS6 XSZNYVI":E=30:N=32:RE 

TURN 

320 A«="BSV XSZNYVI LU HVZBS":N=33:E=3 

1: RETURN 

330 A$="BSV XSZNYVI LU 6SV TLNH":E=32: 

RETURN 

340 A«="Z NZIP XLIIRWLr:N=30:«=35:RET 

URN 

350 A«="Z HNZOO XSZNYVI DRBS Z H6V 



VQ NLLI ZYLEV BLF":E=34: RETURN 

360 A«="Z BRHB SZOO DRBS HBZRIH TLR 

HT HLDH":D=15:E=37!RETURN 

370 A$="Z OLHT, NZIP XLIIRHLI':S=38:N= 

40:N=36:E=39:RETURN 

380 A$="Z H6IZHTV, IVN ILLN. qSVIVRH 

Z YFG6LH LH GSV HLIGS DZ00";N=37:RETUR 

N 

390 A»="Z HNZOO ILLN DRBS HGZRIH TLR 

HT HLDH":D=18:N=37:RETURN 

400 A*="Z SFTV VHGIZHXV SZ00":S=37iRET 

URN 

Extended descriptions of current 
location. 

410 IF A=N1 AND S0=N1 THEN BM'gSV NLL 

I RH LKVH":N=9 

420 IF A=N2 AND S1=N1 THEN B»="qSV YLC 

RH LKVH" 
430 IF A=35 AND S1=N1 THEN B*='2 H6ZRI 
XZHV OVZNH FK BSILFTS GSV H6VV0«LLI":U 
=9 
440 IF A=9 AND S2=N1 THEN B$="qSVlV RH 

Z H6ZRIXZHV OVZNRHT NLDM'!D=35 
450 IF A=25 AND S6=N1 THEN B$="gSVIV R 
H Z HGZRIXZHV NLDH':D=29 
460 IF A=29 AND S6=H1 THEN B*="i H5IR1 
XZHV VCGVMWH GSILFTS GSV ILLU LU 6SRH 

ILLN":U=25 
470 IF A=12 AND S3=N1 THEN B«="gSVIV R 
H Z HVXIV6 KZHHZTV OVZNRHT HLFGS": 
S=7 
480 IF A=40 AND S4=N0 THEN B»='z HLISS 

NLLI RH QLXPVN" 
490 IF A=40 AND S4=N1 THEN B*="gSV MLI 
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6S MLLI RH HVH6ILBVII':N:c50 

Generate list of visible items and 
available exits for current location. 

500 REH 

520 IF C$="" THEN C«='ilgsrit" 

530 IF MONO THEN D»(LEN(0»)*Nl)="iLI6 

S" 

540 IF SONO THEN D*(LEN(D*)+N1)=" hLF 

6S" 

550 IF EONO THEN D*(LEM(D»1+N1)=' vZH 

B- 

560 IF MONO THEN D*(LEN(D«)+N1)«" dVH 

6" 

570 IF DONO THEN D»(LEN(D«)+N1)=" nLD 

M" 

580 IF UONO THEN D*(LEN(D$)+N1)=" fK" 

590 IF BtO" THEN B»(LEN(B$)+N1)="." 

600 IF D»<>" THEN IF Dt(Nl,Nl)=" " TH 

EN D$=D$(N2,LEN(D$)) 

Describe current location, visible 
items, and available exits. 

610 6RAPHICS NO:? "You are in "i!P«=A» 
:60SUB N4:P$=B$:60SUB N4:PRINT :PRINT 
"Iteis you can see: " 
612 P»=" -iFOR T=N1 TO 21: IF ft=I(T) T 
HEN Pt(N3)=I»(IP(T),IP(T+Nl)-Nl):60SUB 
N4 

614 NEXT T:IF P»=" " THEN P»=" ilgsr 
■t':60SUB N4 

618 PRINT :PRINT "Exits: ■;:P»=D*:eOSU 
B N4 

Describe monster, if present. 

620 IF HONO THEN ? :P«="tm ":P»(6) = 
M$(MP(H),MP(H+N1)-N1):P$(LEN(P*)+N1)=" 
ZG6ZKPRHT lttt":60SUB N5 

Get and interpret command. 

630 PRINT : PRINT "Cowand ";: INPUT V0$ 

-.BOSDB 6 

632 ? 

640 FOR T=N1 TO 7: IF V»=VB»(TIN3-N2,T$ 

N3-N2i THEN V$=VB«(TtN3-N2,T»N3) 

650 NEXT T 

670 IF LEN(V«)<N3 THEN 610 

680 Vlt=V$(Nl,N3):V2$=V«(LEN(V«)-2) 

682 IF V2»="vhq" THEN V2$="Inh" 

690 FOR T=N1 TO 23: IF Vl«=VB*(TtN3-N2, 

TtN3) THEN V1=T:60T0 702 

700 NEXT T 

702 IF V1=N0 THEN P»='r NLM'6 FHNVIHGZ 

m BLF":6DSUB N5:60T0 L2 

710 FOR T=N1 TO 21:IF V2»=I*(IP(T+N1)- 

N3,IP(T+N1)-N1) THEN V2=T:60T0 730 

720 NEXT T 
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730 ON VI BOTO 750,780,820,890,920,940 

,980, 1030, 1050, 1090, 1190, 1300, 1830, 141 

0,1520,1560,1600,1660,1690 

732 ON Vl-19 BOTO 1720,1760,1800,1820 

740 BOTO 1830 

Command handler routines. 

750 IF N=NO THEN BOTO LI 

760 IF A=7 AND H>NO THEN BOTO L3 

770 A=N:? OK$:GOTO L2 

780 IF S=NO THEN BOTO LI 

790 A=S:IF A=7 AND H(N1)>N0 THEN n=Nl 

BOO PRINT OKI 

810 BOTO L2 

820 IF H=NO THEN BOTO LI 

830 IF HONO THEN BOTO L3 

840 A=N:PRINT OK«:IF A=19 AND H(N3)>N0 

THEN H=N3 
850 IF A=20 AND n(N2))N0 THEN H=N2 
860 IF A=27 AND H(N4)>N0 THEN «=N4 
870 IF A=32 AND H(N5)>N0 THEN «=N5 
880 BOTO L2 

890 IF E=NO THEN BOTO LI 
900 IF HONO THEN BOTO L3 
910 A=E:PRINT OK$:B0T0 L2 
920 IF U=NO THEN BOTO LI 
930 A=U:BOTO L2 
940 IF D=NO THEN BOTO LI 
950 A=D:60T0 L2 

960 P«="gSV ":P$(5)»M$(HP(«),HP(H+1)-1 
):P$(LEN(P$)+1)=' VOLXPH BSV VCR6':60S 
UB N5:B0T0 L2 

970 P$="gSVIV RH HL DZB 6L TL BSZB NRI 
VX6RLH":B0SUB N4:60T0 L2 
980 IF V2=N2 AND A=N2 THEN P*="gSV YLC 

RH UZH6VHVH 6L BSV UOLLI':BOSUB N4:B0 
TO L2 

990 IF V2=N0 OR (I(V2)<>A AND I(V2)<>N 
0) THEN PRINT "I don't see it here':BO 
TO L2 

1000 IF I(V2)=N0 THEN PRINT "You are a 
Iready carrying it":B0TO L2 
1010 IF P3=10 THEN PRINT "You can't ca 
rry anything ■ore':BOTO L2 
1020 I(V2)=N0:P3=P3+N1:PRINT 0K$:6OTO 
L2 

1030 IF V2=N0 OR 1(V2)<>N0 THEN PRINT 
"I don't have it":60T0 L2 
1040 P3=P3-N1:I(V2)=A!PRINT OK»:60TO L 
2 

1050 BRAPHICS NO:PRINT "Player's Inven 
tory" 

1060 FOR T=N1 TO 21: IF I(T)=NO THEN P* 
=I$(IP(T),IP(T+N1)-N1):B0SUB N4 
1070 NEXT T 
1080 BOTO 1920 
1090 IF «=N0 THEN P*="gSVIV ZIVH'B ZNB 
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NLHHBVIH SVIV':BOSUB N4:B0T0 L2 
1100 IF A=20 AND P4=N0 THEN P«="bLF XZ 
H'B Z6BZXP RN BSV MZIP':BOSUB N4:60T0 
L2 

1110 PRINT "With which weapon";: INPUT 
V2«:IF LEN(V2$)<N3 THEN 1110 
1112 ? 

1114 V0«=V2«:B0SUB 6:V2»=V» 
1120 V2=N0:V2»=V2$(LEN(V2«)-II2):F0R T= 
Nl TO 21:IF V2*=I»(IP(T+N1)-N3,IP(T+N1 
)-Nl) THEN V2=T:60T0 1132 
1130 NEXT T 

1132 IF V2=N0 OR I(V2)<.>N0 THEN P«»"bL 
F HLH'B SZEV BSZB DVZKLH":BOSUB H4:6QT 
Q L2 
1134 IF V206 AND V2014 THEN PI="qSZ6 

RHH'B Z DVZKLI1':B0SUB N4:60T0 L2 
1140 IF V2014 OR H04 THEN 1150 
1142 P$='gSV UOZNRNT HDLIN PROOVN BSV 
HORNV XIVZ6FIV:B0SUB N4;P2=P2+15!« 
=N0:H(N4)=N0:60T0 L2 
1150 IF INT(100tRND(0))+l<(40-P5) THEN 

P$="bLF NRHHVH BSV ■:P»(LEN(P*)tNl)=« 
»(HP(H),HP(H+N1)-N1):60SUB N4:B0T0 L2 
1160 P»="bLF SRB BSV •:P$(LEM(P»)+N1)« 
««(HP(H),HP(H+N1)-N1):60SUB N4:H(H)=n( 
H)-N5 

1162 IF H(H)<=N0 THEN P«="r6 RH HVZN!" 
:SOSUB N4:M(H)=N0:P2=P2+15:IF M=N5 THE 
N P2=P2+35 

1170 IF N(H)=N0 THEN H=NO 
1180 BOTO L2 

1190 T=V2:IF T=NO OR KTIONO THEN P«= 
"r HLH'B SZEV 6SZB":60SUB N4:B0T0 L2 
1200 IF TONl AND T012 AND T016 THEN 

P$="eVIB HBIZNTV. iLBSRHT SZKKV«H":B 

OSUB N4:60T0 L2 

1210 IF T=N1 THEN P$="iLBSRHT SZKKVHH" 
:BOSUB N4:B0T0 L2 

1220 IF T012 OR HONS OR P6>=N4 THEN 
1230 

1222 Pl="gSV YOZXP NIZTLN IVU0VX8H BSV 
ORTSBHRNT YLOB RM6L BSV DZOO" 
:BOSUB N4:P6=P6+N1:BOTO L2 
1230 IF T=12 AND P6>2 THEN P$="iLBSRHT 
SZKKVHH" iBOSUB N4:B0T0 L2 
1240 IF T=12 AND N=NO THEN P»="z ORTSB 
HRMT YLOB RH IVOVZHVH YB BSV 

DZHH':GOSUB N4:P6=P6+N1:B0T0 1830 
1250 IF T012 THEN 1270 

1252 P6=P6tNl:P«="z ORTSBHRNT YLOB SRB 
6SV •:SOSUB N4 

1253 PI=H«(«P(H),HP(N+N1)-N1):60SUB N4 
:N(H)=N(H)-15 

1254 IF H(H)<=0 THEN H(N)'=0:P2=P2+15:H 
=N0:Pt="r6 RH NVZH":BOSUB N4 

1260 BOTO L2 

1270 IF T=16 AND A=9 AND S2*H0 THEN S2 



=l:P$="z HVnve HBZRIXZHV HLDM ZKKVZIH 
':60SUB N4:60TD L2 

1260 IF J'lb AND A=12 AND S3=N0 THEN S 
3=Nl:P*="z HVnve ILLN BL 8SV HLF6S ZK 
KVIIH'-.BOSUB H4:60T0 L2 
1290 P»='iL6SRMT SZKKV«H':60SUB N4:60T 
L2 

1300 IF V20N2 OR KNDONO OR SIONO 
THEN 1310 

1302 Sl=Ml!p$="gSV NV6Z0 YZI SVOKVN. 
9SVIV RH Z PV6 RH GSV YLC":60SUB N4il( 
N3)=N2i60TD L2 

1310 IF V2=N2 AND I(N1)=N0 AND Sl'Nl T 
HEN P»="gSV YLC RH ZOIVZMB LKVH":60SUB 
N4:60T0 L2 

1320 IF V2»="lli' AND A=9 AND S2=N1 TH 
EN P»="9SV WLLI RH ZOIVZHB LKVH"!60SUB 
N4iG0T0 L2 

1330 IF V2t="lli' AND A=9 AND S2=N0 TH 
EN P»='gSV NLLI HLDH HVVNH NZTRXZOOB 
L1(PVM':80SUB N4:60T0 L2 
1340 IF V2021 OR (A<>I(21) AND I(21)< 
>N0) THEN 1350 

1342 P*='zOO SSZ6 BLF XZH HVV RH Z EVI 
B YIRTS6 0RTS6.RI1HRMV 6SV XSVHe':6DSUB 
N4:60T0 L2 

1350 IF V2*="lli" AND S1=N0 THEN P»»"b 
LF ZIVN'6 H6ILHT VHLFTS 6L LKVH RB'jBO 
SUB N4:60T0 L2 

1360 IF V2$>'lli' AND A=N1 AND I(N3)<> 
NO THEN P»='bLF NLH'B SZEV BSV PVB':BO 
SUB N4:60T0 L2 

1370 IF V2$=Mli' AND A=N1 AND I(N3)-N 
AND S0=N1 THEN P$="gSV NLLI RH ZOIVZ 
NB LKVn'rBOSUB N4:80T0 L2 
1380 IF V2t='lli' AND A=N1 ANB I(N3)=N 
AND SO=NO THEN SO==NliPI='gSV HLLI RH 
HLD LKVH'iBOSUB N4:G0TQ L2 
1390 IF V2$='lli' AND AMO AND I(N3)=H 
THEN P$="gSV PVB NLVHH'6 URS'sBOSUB 
N4:60T0 L2 

1400 P$''r XZH'G HL 6SZB':60SUB N4:60T 
L2 

1410 IF V2xN0 OR I(V2)<>N0 THEN P«="bL 
F ULH'6 SZEV 6SZ8':60SUB N4:60T0 L2 
1420 IF V2=17 AND A»12 AND S3=N0 THEN 
S3=l:P$="z BIVZHFIV EZF06 RH VCKLHVN": 
GOTO 5000 

1430 IF V2=17 AND A=9 AND S2=H0 TI«N S 
2=Nl:P$='z HBZRIXZHV W.DH RH VCKLHVN': 
BOTO 5000 

1440 IF V2=17 AND A=40 AND S4«N0 THEN 
S4=Nl:P*="gSV HLIBS NLLI RH HVHBILBVN" 
iBOTO 5000 
1450 IF V2017 OR H=NO THEN 1460 

1452 IF V2=17 AND NOO THEN P$='gSV VC 
KOLHRtV 1LNY SR6 BSV 'jBOSUB N4 

1453 IF V2=17 AND NOO THEN P»=H»(I1P(N 



!,I1P(H+N1)-N1):B0SUB N4:N(«)=N(H)-15 
1454 60SUB 5020!l(17)=-A:P3=P3-Nl!lF H 
<=N0 THEN niN)=N0:T=H:N=0:P2=P2+15:P$= 
"rS RH NVZ«':BOSUB N4!60TQ L2 
1460 IF V2=17 AND T=55 THEN P2=P2+35 
1470 IF V2=17 AND M=N0 THEN P$="gSV YZ 
00 VCKOLNVH ZTZRHH6 BSV HBLMV DZOO": 
60SUB N4:60SUB 5020: 1(17) =N0:P3=P3-N1 
1480 IF V2=17 THEN BOTO L2 
1490 IF V2=20 THEN P$='gSV UOZHP HSZB6 
VI VN RH6L NROORLHH LU KRVXVH":60SUB N 
4:I(20)=-A:P3=P3-1:I9=20:B0SUB 5030 
1492 IF V2=20 THEN BOTO L2 
1500 IF V2013 OR HON2 THEN 1510 
1502 I(13)=-A:H(N2)=N0:P«="gSV ':P»(H5 
)=H$(«P(t1),HP(H+Nl)-Nll:P$(LEN(P»)+l) = 
" S2H EZHRHSVN'iBOSUB H4 
1504 I9=13:G0SUB 5030:ni3)=-A:H=N0:P2 
=P2+15:P3=P3-N1:B0T0 L2 
1510 BOTO 1030 

1520 IF V2$="gfv" AND A=12 AND S3»N0 T 
HEN S3=Nl:P$="z HVXIV6 KZHHZTV 6L BSV 
HLF6S ZKKVZIH":60SUB N4:B0T0 L2 
1530 IF V2$="gfv" AND A=12 AND S3=N1 T 
HEN S3=N0:P»="gSV HLFBS KZHHZTV XOLHVH 
■:60SUB N4:B0T0 L2 

1540 IF V2»="gli' AND A=38 THEN A=N1:P 
♦="bLF ZIV 6V0VKLIBVH BL ....■:BOSUB N 
4: GOTO L2 

1550 P$="r NLN'G FHHVIH6ZHH":B0SUB N4: 
P»="DSZ6 BLF DZH6 NV 6L NL":60SUB N4:6 
OTO L2 

1560 IF V2=N0 OR I(V2)<>0 THEN P$="r H 
LM'B SZEV BSZG':GOSUB N4:60T0 L2 
1570 IF V2=N4 THEN P5=P5-INT(5IRND(0)) 
-3:Pt="bLF HFNNVnOB UVVO NFXS DVZPVI'; 
60SUB N4:HN4)=-A:I9=4:80SUB 5030 
1572 IF V2=N4 THEN P3=P3-N1:60TO L2 
1580 IF V209 THEN 1590 
1582 P5=P5+6+INT(RND(0)t5):P*='bLF HFN 
HVNOB UVVO NFXS HGILHTVI":60SUB N4:I(9 
)=-A:I9=9:G0SUB L2:P3=P3-Nl!60T0 L2 
1590 P$='»L«'G YV IRNRXF0LFH":60SUB N4 
:G0T0 L2 

1600 IF V2=N0 OR I(V2)<>0 THEN P»='r M 
LH'B SZEV GSZG':GOSUB N4:60T0 L2 
1610 IF V2=N4 THEN PRINT 0K«:I9=4:60SU 
B L4:I(4)=-A:P3=P3-N1:G0T0 L2 
1620 IF V2=9 THEN PRINT 0K$:I9=9:B0SUB 

L4:I(9)=-A:P3=P3-N1:60T0 L2 
1630 IF V2O20 OR S4ON0 THEN 1660 
1632 IF AO40 THEN 1640 
1634 P*="gSV 2XRN NVH6ILBVN GSV OLXPVN 

HLLr:GOSUB N4:S4=N1:II(IP{20),IP(21) 
-l)="vnkgb uozhp ":S5=N1:B0T0 L2 
1640 P»="gSV ZXRH YFYYOVH RttGL BSV UOL 
Lr:BOSUB N4:S5=Nl:I<nP(20),IP(21)-l) 
="vnkgb uozhp •:60T0 L2 
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AATARr 
OWNERS & 
PROSPECTIVE 
OWNERS 

Now is the time to buy 

ATARI® products at low, 

low prices! 

ATARI® 800 W/I6K $690 

W/32K $775 

w/ 48K $860 

ATARI® 400 W/16K $360 

ATARI® 850 Interface $175 

ATARI® 830 Modem $159 

ATARI 810 Disk Drive $445 

ATARI 410 Recorder $79 

ASTEROIDS CARTRIDGE $33 

CENTIPEDE CARTRIDGE $33 

MISSILE COMMAND CART $33 

PAC-MAN CARTRIDGE $33 

PILOT (COMPLETE) $99 

PILOT HOME PKG $63 

SPACE INVADERS CART $33 

STAR RAIDERS CART $36 

ENTERTAINER PKG $83 

EDUCATOR PKG $125 

PROGRAMMER PKG $56 

COMMUNICATOR PKG $320 

Add 1% for shipping & handling 
Michigan residents add 4% sales tax. 
ATARI® &J[[are trademarks of ATARI®,inc 

WE ALSO BUY AND SELL USED ATAR^ 
EQUIPMENT. WRITE TO US. 

Computer's Voice^^ 

software for the ATARI® 
400/800 computers 

Word Search Puzzle Maker — Makes 
word search puzzles and answers on a 
printer-24K cassette $19.95, 24K disk 
version $24.95. 

MENUMAKR — takes in and dumps 
text screens in GRAPHICS -8K 
cassette $14.95, 16K disk $19.95. 
MATHFAKS — Math drill program us- 
ing color and sound. Optional ac- 
cessories include a printer and 
VOTRAX Tvpe-N-Talk-24K cassette 
$19.95, 24K disk $24.95. 
Electronic Grade Book — Great 
classroom aid for teachers. Uses 
number or letter grades, weighted 
scores, screen or printer output, and 
more. 32K required $49.95. Specify 
cassette or disk. 

Light Pen - for the ATARI® 400/800 by 
Symtec. Suggested list price $149.95. 
Mention this ad and pay $134.95. 
AXALON-128K RAMDISK for 
ATARI® 800s only $420. 

Add $2 p/order for shipping 
'Michigan residents add 4% sales tax 

Computer's Voice™ 

2370 Flint Dr. 
Flint, Mi 48504 
(313)238-5585 
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1650 P$="r HL«'6 FH«VIH6ZHN":6aSUB N4: 
P»='DSZ6 BLF DZH6 NV 6L ML.':60SUB N4: 
GOTO L2 

1660 IF V2=N0 OR I(V2)<>N0 THEN P«="r 
«LH'G SZEV 6SZ6":60SUB N4:60T0 L2 
1670 IF V2=ll THEN I(V2)=-ft:I9=V2i60SU 
B 5030:P3=P3-Nl:S6=Nl:P$='z HSZRIXZHV 
NLDH RH VCKLHVN':60SUB N4:G0TQ L2 
1680 P$="r XZH'G NL GSZG'iGOSUB N4:60T 
L2 

1690 IF V2O10 THEN Pt='r XZM'G HL GSZ 
6":60SUB N4:60T0 L2 
1700 IF MOl THEN 1710 
1702 «(l1)=N0:P$='gSV ":P«(N5)=I1*(HP(M) 
,«P(H+1)-1):P«(LEN(P$)+N1)=' RH JSZINV 
M":60SUB N4:«=NO:P2=P2+15:6OT0 L2 
1710 PRINT 0K$:60T0 L2 
1720 IF V2018 THEN P«='r XZH'G IVZN G 
SZ6":60SUB N4:60T0 L2 
1730 IF I!18)<>N0 THEN P»="bLF NLH'G S 
ZEV GSV H)(IL00":60SUB N4:60T0 L2 
1740 IF I103 THEN 1750 
1742 Pi="gSV ivH wiztli RH HVH6ILBVH": 
60SUB N4:P3=P3-N1 

1744 I9=18:G0SUB 5030:I(I9)=-A:H<«)=N0 
:P2=P2+15:I1=NO:BOTO L2 
1750 P»="gSV HXILOO HZBH: iVZNRHT 6SV 
NZTRK HKVOO RHHXIRYVN LH 6SRH SLOB 



EXPLANATION OF 
ATARI® LINE LISTINGS 

SoftSide uses the following conven- 
tions in representing unprintable 
characters in ATARI® line listings, 
unless otherwise noted: 

Characters (including blank spaces) 
which are underlined should be typed in 
inverse video. 

When graphics or control characters 
are to be included in a string (between 
quotation marks), that fact will be noted 
in a nearby REMark. In such cases, 
graphics characters are represented by 
the corresponding lower-case letter, and 
control characters are represented by the 
corresponding unshifted key symbol. 
For example: The lower-case letter s 
represents a graphics cross, entered by 
holding down the CTRL key and then 
pressing the S key. The symbol = 
represents a control-down-arrow, 
entered by first pressing and releasing 
the ESC key, then holding down the 
CTRL key and pressing the = key. (See 
Appendix F, and the back cover, of the 
A TA RI® BA SIC Reference Manual. ) 

The one regular exception to the 
above is that a clear-screen character 
(ESC CTRL- < ) is represented in listings 
by a right-hand brace, which looks like 
this: } 

A shifted = is represented in the 
listings by a vertical line with a small gap 
in it; I 



HL1(FNVH6':60SUB N4 

1752 Pt="DR00 XZFHV GSV NVHGIFXGRLH LU 

ZMB IVH HIZTLM RH BLFI KIVHV«XV.':60S 
UB N4:60T0 1920 
1760 IF V20N5 THEN PRINT ■lih4t?"j60T0 

L2 

1770 IF I(N5)<>N0 THEN P$="bLF ULN'G S 
ZEV R6":60SUB N4:60T0 L2 
1760 IF P4=N1 THEN PI='bLFl OZNK RH ZO 
iVZHB LI1':60SUB N4:60T0 L2 
1790 P4=N1:I»(IP(N5),1P(N5))=" MtdP 
(N5)+1,IP(N5+1))=CHR»(30):60T0 L2 
1800 GRAPHICS NO:PRINT "Player's Statu 
s:' 

1810 PRINT :PRINT "Current hit points: 
"jPhPRINT "Strength level:"iP5:PRINT 
"Exp. points! ";P2:G0T0 1920 
1820 GRAPHICS NO!PRINT "6aM over":P2» 
P2-30:80T0 2010 

Update player status and conduct 
combat if appropriate. 

1830 TI=TI+N1:IF PKPO THEN P7=P7+0.2: 

IF P7=N1 THEN P7=N0:P1=P1+N1 

1840 IF M=N0 THEN 1940 

1850 IF I(19)=N0 THEN 1940 

1860 T=INT(RND(0)I100)+1:IF T<20 THEN 

1940 

1870 ? :P$="gSV ";P»(N5)=H«(HP(H),NP(H 

tl)-l)sP*(LEN(P$)tl)=" ZBGZXPH'iGQSUB 

N4 

1880 T=INT(RND(0)»100):IF T<30 THEN PR 

INT "It ■i55e5":G0T0 1940 

1890 PRINT "It hits you":P1=P1-10:IF I 

(7)=N0 THEN P1=P1+N5 

1900 IF PKNO THEN 2130 

1910 GOTO 1940 

1920 ? :? "Hit any key to continue..." 

:POKE 764,255 

1922 IF PEEK (764) =255 THEN 1922 

1924 POKE 764,255 

1930 GOTO 1950 

1940 FOR II=N1 TO 160!NEXT 11 

1950 REN 

Initialize for new turn and jump to 
appropriate room description. 

1960 GT=N1;N='N0:S=N0:E=N0:N=N0:U=0:D=N 
0:A$="":B$=""!C$="":D«="":V1=N0!V2=N0: 
V«="":V1$="":V2$="" 

1970 IF A<=40 THEN 60SUB AI10:60T0 410 
1980 Pt^'bLF SZEV VHXZKVH UILN GSV":60 
SUB N4:P»="t(FHTVLH LU GSV tLNH!":GOSUB 
N4 

Calculate and display player ratings. 

1990 PRINT "Total escape tiie =";TI 
2000 IF I(21)<>N0 THEN P$='bLF NRNH'G 



TVG GSV XSVHG, GSV IVYVOORLH D 

ROD YV XIFHSVil!!!":60SUB N45B0T0 2140 
2010 P2=P2+30!lF I(8)=H0 THEM P2»=P2+30 
2020 IF I(151=N0 THEN P2=P2+30 
2030 IF I(21)=N0 THEN P2=P2+100 
2040 PRINT "Final score: ";P2;" out of 

a possible 300' 

2050 PRINT :PRINT "Ranking: ") 
2060 IF P2=300 THEN PRINT "Expert Adve 
nturer'!GOTO 2140 

2070 IF P2>280 THEN PRINT "Class A Exp 
Iorer":60T0 2140 

2080 IF P2>250 THEN PRINT "Class B Exp 
IorBr":GOTO 2140 

2090 IF P2>200 THEN PRINT "Class C Exp 
lorer"!GOTO 2140 
2100 IF P2>150 THEN PRINT "First Class 

Scout"! GOTO 2140 
2110 IF P2>100 THEN PRINT "Novice Scou 
f:60T0 2140 

2120 PRINT "Beginner": SOTO 2140 
2130 PRINT "You are dead!!!" 

"Play again?" routine. Restart or 
clean up and end. 

2140 PRINT :PRINT :PRINT 'Mould you li 

ke to play again?"; 

2142 CLOSE INliOPEN IN1,N4,N0,'K:" 

2144 BET tNi,IN 

2150 IF IN=89 THEN RUN 

2160 IF IN078 THEN 2140 

2170 GRAPHICS NO: STOP 

Initialize workspace. Read in items, 
verbs, and monsters. 

2180 GRAPHICS 0:DIH 11(1000), 1(22), H(5 

),H«(1000),VB»(69),IP(23),HP(6) 

2182 DIN Z$(50),A$(80),B«(60),C$(80),D 

$(80),P»(80),V0«(20),V$(20),V1»(3),V2» 

(17) 

2184 FOR T=N1 TO N5:H(T)=N0:MEXT T 

2190 I*=":FOR T=N1 TO 21:IP(T)=LEN(U 

)+Nl:READ. Z$:I«(LEN(I$)+N1)=Z(:READ Z: 

I(T)=Z:NEXT T:IP(T)=LEN(I$)+N1 

2192 I(NO)=NO 

2200 READ VB$ 

2210 H»=":FOR T=N1 TO N5!«P(T)=LEN(H« 

)+Nl:REAO Z»:H<(LEN{H*)>N1)=Z»:READ Z: 

H(T)=Z:NEXT T:NP(T)=LEN(H*)+N1 

Establish player strength and hit 
points. Jump to first room. 

2220 FOR T=N1 TO 15!P0=P0+INT<RN0(0)»2 

)+l:NEXT T 

2230 P1=P0 

2240 FOR T=N1 TO N5:P5=P5+INT(N5tRND(N 

0))+Nl:NEXT T 

2250 A=N1:N1=N1:6DSUB 10:G0T0 410 
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Display introduction and 
instructions. 



2260 BRflPHICS MO: PRINT : PRINT " Escape 
^roi the Dungeon of the 6ods":POSITIO 
N 15,N2!PRINT "by Ray Sato' 
2270 PRINT " Atari translation by Ric 
h Bouchard' 
2280 PRINT 
2290 ? !? :? 
edieval town 
kind lan,' 
2292 ? 'King Safuis I. Hoitever, tthen 
he died, his son becaie the neti ruler. 
King' 
2300 ? 'Safuis II was a harsh, cruel ■ 

turned Alvard into a city of t 

and destruction.' 

' You and several other citize 

the toHn had foried a siall ar 



' For years, the siall i 
of Alvard Has ruled by a 



an Mho 
error 
2310 ? 
ns of 
•y to" 

2312 ? 'rebel against the evil ruler, 

but on the day before your first atta 

ck on' 

2314 ? 'the king, Safuis' secret polic 

e cap- tured you and iiprisoned you i 

n the" 

2320 ? 'legendary Dungeon of the Gods. 

2330 ? !? " Press any key to cont 
inue'; 

2340 OPEN 11,4,0, 'Kj':BET I1,T:CL0SE t 
1 

2350 GRAPHICS 0:? !? :? i? 
2360 ? ' You are not) being held in a 
disial prison cell Mhile the king's f 
orces' 
2362 ? 'continue to destroy the entire 

vill- age. You aust escape froi the 

dungeon"; 
2364 ? 'and help the rebellion defeat 
the king. Here in the dungeon, le 
gends' 

2370 ? 'say there is a special chest c 
ailed the Chest of the Gods, tthich h 
as the' 

2372 ? 'power to destroy the king and 
all his forces. You lust find this ch 
est and' 
2380 ? 'several other treasures hidden 

in the dungeon. But beware! Several 

power-' 

2382 ? 'ful Bonsters protect the conte 
nts of this dungeon and you will be f 
orced" 
2384 ? "to slay thei if you leet thei. 



2390 ? :? ' Press any key to begi 

n"; 

2392 OPEN I1,4,0,'K:":BET #1,T:CL0SE t 

1 

2400 GOTO 2180 



item, Verb, and IVIonster data. 

2410 DATA nvgzo y2i,2,nvgzo ylc,-2,pvb 

,-2,klgrlil,4,fiorg yizhh oznk,S,ozuv 

,6,hsrvoH,6,yzi lu kozgrBfn,7 

2412 DATA klgrla2,8,uofgv,10,xlkkvi xi 

ri,ll,dziwl,13,nztrx wfhg,14,uoznrit h 

dIiH,16 



2414 DATA 1 wlava wrznliwh,19,dziw2,21 

,vckolhrev yzoo,23,hxilDO,26,irat,27,u 

ozhp lu zxrw,28,xsvhg lu gsv tlwh,33 

2430 DATA ilihlfdvhvzhfk wldtvgwilriez 

ggdzelkvollgsikfhwirklfrihkozivzorthgz 

jfr 

2440 DATA xsilnzgrx hizpv,15,yozxp xfy 

v,20,ivw wiztli,25,hornv xivzgfiv,20,t 

rzig yozxp wiztIi,3S 

2900 BOTQ 2900 

5000 BOSUB N4:P3=P3-N1:60SUB 5020:1(17 

)=-A:60T0 L2 

5020 19=17 

5030 FOR I1=IP(19) TO IP(I9+N1)-N1:1*( 

11,11)=' ":NEn II:RETURN 



ATARI® SWAT TABLE FOR: 

ESCAPE FROM THE DUNGEONS OF THE GODS 

(Modified Parameters: NU = 5, B = 200) 





SWAT 






SWAT 




LINES 


CODE 


LENGTH 


LINES 


CODE 


LENGTH 


1 - 5 


ID 


237 


1340 - 1360 


DC 


257 


6 - 20 


JP 


294 


1370 - 1400 


QH 


233 


30 - 70 


IS 


221 


1410 - 1430 


QQ 


214 


80 - 110 


JN 


266 


1440 - 1453 


Gfi 


239 


120 - 140 


QN 


239 


1454 - 1470 


6Z 


253 


150 - 170 


BB 


208 


1480 - 1502 


UI 


288 


180 - 210 


m 


264 


1504 - 1530 


NT 


243 


220 - 250 


UL 


264 


1540 - 1570 


RI 


310 


260 - 300 


YJ 


266 


1572 - 1590 


HJ 


206 


310 - 340 


AD 


210 


1600 - 1630 


UK 


201 


350 - 370 


IZ 


228 


1632 - 1640 


BY 


244 


380 - 410 


OD 


248 


1650 - 1670 


HE 


215 


420 - 450 


HV 


249 


1680 - 1702 


UB 


214 


460 - 480 


OE 


217 


1710 - 1742 


JC 


188 


490 - 540 


OR 


154 


1744 - 1752 


JZ 


243 


550 - 590 


KG 


140 


1760 - 1800 


QZ 


216 


600 - 614 


HN 


207 


1810 - 1850 


VV 


222 


618 - 640 


m 


210 


1860 - 1880 


AH 


208 


650 - 690 


EP 


134 


1890 - 1922 


MV 


173 


700 - 730 


JK 


277 


1924 - 1960 


OK 


173 


732 - 770 


TC 


113 


1970 - 2000 


CN 


241 


780 - 820 


ES 


74 


2010 - 2050 


PB 


179 


830 - 870 


YL 


135 


2060 - 2100 


VY 


232 


880 - 920 


YI 


63 


2110 - 2142 


UZ 


157 


930 - 970 


RO 


194 


2144 - 2180 


KA 


153 


980 - 1010 


IH 


214 


2182 - 2190 


IR 


226 


1020 - 1060 


DJ 


177 


2192 - 2230 


AL 


166. 


1070 - 1110 


NA 


183 


2240 - 2280 


EH 


197 


1112 - 1132 


SE 


173 


2290 - 2300 


UH 


267 


1134 - 1150 


VE 


291 


2310 - 2314 


AH 


243 


1160 - 1190 


KH 


225 


2320 - 2360 


EB 


246 


1200 - 1222 


HK 


236 


2362 - 2370 


HL 


248 


1230 - 1252 


B6 


222 


2372 - 2382 


LP 


247 


1253 - 1270 


NT 


216 


2384 - 2410 


DI 


251 


1280 - 1302 


KB 


226 


2412 - 2430 


RN 


242. 


1310 - 1330 


ZY 


202 


2440 - 5030 


PK 


206 
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« TRS-BO BASIC « 

t 'DUNBEONS OF THE 60DS' » 

) AUTHOR: RAY SATO ( 

I (C) 19B2 SOFTSIDE » 



Jump to program initialization. 

2 60T0 2140 

Decode and print output. 

4 IFP«="THENRETURNELSEFORP=lTOLEH(P«):II=ASC(«ID»(P$,P,Nl)l!PRI 
NTCHRt(ABS(IC155t(II>C64))-II)l;:NEXTiPRINT:RETURN 

5 E0TD2140 

Encode input. 

i V»=";IFVO»="THEI(RETURNELSEFORJ=1TOLEN(VO«):II=ASC(HID«(VO$,J 
,m))iVI*V(iCHRt(ABS((ClSStUI>C&4))-II)):NEXT:RETURN 

Descriptions of individuai rooms. 

10 A»='BSV DVH6 VHII LU Z KIRHLN XVOO. Z KLLI OVZtiH HLIGS":Bt="G 

SV MLLl RH OL](PVN>:E=2:BOT0410:E=2i60T0410 

20 A$="BSV VZHB VNN LU Z KIRHLN XVOO. Z HVBZO YLC ORVH L« BSV T 

ILFI1li":B»="BSV YLC RH OLXPVIC!N=liGQT0410 

30 A»='Z GRUB K2HHZTV":N=U:S=4jB0T0410 

40 A«='Z 6IRZHTF0ZI ILLN':>I=3:60T0410 

50 A»='Z HBLIZTV iaN"iN-8iH=6:60T0410 

to A«="6SV DVZKLH ILLN"!E=5:80T0410 

70 A«="BSV 6IVZHFIV EZF06':»I=12:G0T0410 

80 A«='Z HHZOO ILLN";S=5:E=9iGOT0410 

90 A$="Z ILLN ORGS Z H6VV0 MLLI Lit GSV U0LLr!l»=B:E=t0!N=13!S=l: 

8DT0410 

100 At='BSV NFHRX SZOD':E=ll:lt=9:60T0410 

110 AI="Z ILLN ORGS Z OZITV YIZHH GZYOV!N=14!S=3!H=10:G0T041O 

120 A»="6SV 6SILHV ILLN DR6S Z HBZGFV LM BSV HLFGS DZ00":N=1A!E= 

13:60TD410 

130 A<="Z ILLN DR6S Z HNZOO RELIB GZY0V"!S=9j«=12:N=17!E=14:60T0 

410 

140 AI::'BSV DRAZIM'H l)LIPHSLK'!S=lliMM3:60T0410 

150 A»^'Z ILLN DRBS H8ZRIH TLRNT FK':E=14:U=34:BOT0410 

IM At="Z OZITV SZOO":S=12iN*15:E=17iBOT0410 

170 A»="Z OZITV HGLIZTV ILLN";S=13;N=:16:N=2l!E*18:B0T0410 

IBO A«="Z HNZOO ILLN DRBS H8ZRIH TLRNT FK":I)=17:N=22:U=39:BOT041 



190 A»="GSV NIZTLH 1LLN":E=20!BDT0410 

200 At='Z XLNKOVGVOB NZIP SZOO"!N=19!E=21:G0T0410 

210 At='Z DLIPHSLK ORGS Z DLLNVH GZYOV:N=20:E=22!S='17!BOT0410 

220 A»="Z 6RHB HJFZIV ILLN";N=25!S=18:H=21:G0TO410 

230 A»='Z IVXGZNTFOZI ILLN"!E=24!N=26:GOT0410 

240 A»="GSV PR6XSV«':t(=23:E=25:G0T0410 

250 A»="GSV NFHTVLH XZHRHL DR6S Z OZITV HOLG NZXSRHV":N=28!N=24: 

S=22:60T0410 

2i0 A»='GSV ORYIZIB';S=23!GOT0410 

270 M='l NZIP ILLN':E=28:G0T0410 

280 AI=:"GSV 0ZYLIZ6LIB ORGS Z NV6Z0 BZYQV:S=25:I(=27:G0T0410 

290 A«="Z EVIB NRIBB ZNN NFHGB ILLN":S=30:GOT0410 

300 A»="Z EVIB OL«T XLIlRNLI':N=29!N=3l!S=34:60T0410 

310 A»="Z YIRTS6 XSZNYVI"!E=30:H=32:G0T0410 



EsctK nnnc MKEm or M ens 

lY 
RAY SATO 

FIR YEWS, TIf SMALL JOIEVM. TQUI OF IVKU l«6 lUO IV A 

ion NM, laiK stnns i. lOEvat, un tc tm, las sn edk 

TW to RUR IGNE SITUIS II MAS A HMISN, CHEL NM IM 

nwj Amn iuro a city of mat m KnwTim. 
YO) m SPOM. ono cnnm of m tbd hm fwo « 

Smi (Wy TO ROQ («II6T M EVIL fiUIR, WT (K TIC lAY I- 
FOH Y»» riBT ftTIACI! 0« M KING, HIS SEOET Paid OflllO 

"W tai iiwisao YO) iH TIC leedwry suceik j t« gob 

WSS (IffffY TO COHIIHU 



320 A«="GSV XSZNYVI LU NVZ6S"!l(=33!E=31:80T0410 

330 A»="SSV XSZNYVI LU GSV TLItH"!E=32:G0TO41O 

340 A»='Z HZIP XLIIRNLI":N=30!K=35:BOT0410 

350 Ai="Z HNZOO XSZNYVI ORGS Z H6VV0 NLLI ZYLEV BLF":E=34:G0T041 



360 A«="Z GRNB BZOO ORGS H6ZRIH TLRNT IILDN':D=15:E=37:G0T0410 

370 A»='Z OLHT, NZIP XLIIRIILr!S=3B!N=40:N=36:E=39!G0T0410 

3B0 A«="Z HGIZNTV, IVM ILLN. BSVIV RH Z YFGGLM LH GSV HLIGS OZOO 

':N=37;60T0410 

390 A«="Z HNZOO ILLN ORGS HGZRIH TLRNT NLDH":D=18!N=37!GOT0410 

400 A»='Z SFTV VHGIZHXV SZ00":S=37 

Extended descriptions of current location. 

410 IFA=1ANDS0=1THENB»='6SV HLLI RH LKVH':N=9 
420 IFA=2ANDS1=1THENB«='BSV YLC RH LKVH" 

430 IFA=35ANDS2=lTHEHBi="Z HGZRIXZHV OVZdH FK GSILFTS GSV HGVVO 
KLLr:U=9 

440 IFA^9ANDS2=1THENB»="6SVIV RH Z HBZRIDZB OVZNRNT NLDH":0=35 
450 IFA=25ANDS6=:1THENB»="6SVIV RH Z HGZRIXZHV MLD«':D=29 
4i0 IFA=29flNDS6=lTHENB$="Z HBZRIXZHV VCGVNMH GSILFTS GSV ILLU LU 
6SRH ILLN"!U=25 
470 IFA=12ANDS3=1THENB$="GSVIV RH Z HVXIVG KZHHZTV OVZMRNT HLFGS 
■:S=7 

480 IFA=40ANDS4=0THENB»="Z HLIGS ULLI RH OLXPVN" 
490 IFA=40ANDS4=1THENB»="GSV HLIGS HLLI RH IIVHGILBVM':N=50 

Generate list of visible items and available exits 
for current location. 

500 A«=A»+"."!F0RT=1T021:IFA=I(T)THENC»=C«+I«(T)+", " 

510 NEXTT;IFC«<>"THENC»<EFT«(C»,LEN(Ct)-2) 

520 IFC»=""THENC»="«LGSR(1T" 

530 IFN<>OTHEND$=D»+'NLIGS" 

540 IFS<>0THEND»=D»+" HLFGS" 

550 IFE<>0THENDt=D»+" VZHG" 

560 IFH<>OTHEND$-D»+" DVHG" 

570 IFD<>0THEND»=D«+" NLDN" 

580 IFU<>OTHEND«=D$+" FK" 

590 IFBt<>""THENB»=B$+'." 

600 IFLEFT«(Dt,l)=" "THENDMRIBHTKDt.LENIDO-D 

Describe current location, visible items, and 
available exits. 
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ilO CLSiPRINT'YOU AfiE IN .•■:PMAt:60SUB4:P$=Bti6DSUB4«iPRINTiPRI 
NT'ITEHS YOU CAN SEE: ■i:P<=C«:B0SUB4iPRINT:PRINT'EIITS; •i:P«=D 
(:GDSUB4 



Describe monster, if present. 



420 IF«<>OTHENP»="» t t '+«$(«)+" Z66ZXPRNT I « fi60SUB4 



Get and Interpret command. 



m PRINT: INPUT'CONHAND';VO$:GOSUBi 

440 FQRTMT07:IFV»=LEFT«(V»(T),1)THENV»=V»(T) 

450 NEXTT 

440 1FV»='FK'THENV»="FI! ' 

470 IFLEN(V»)<3THEN410 

480 V1»=LEFT»(V«,3);V2»=RI8HT»(V»,3):IFV2$="VHB"THENV2»="HIH" 

490 F0RT=1T023:IFV1«=LEFT$(V«(T),3)THENV1=T 

700 NEXT:IFV1=0THENP$=='R HLH'6 FHHVIHBZmf BLF':60SUB4:6DTD1830 

710 F0RT=1T021:IFV2«=RI6HT«(I»(T),3)THENV2=T 

720 NEXTT 

730 ONV1GOT0750,780,820,890,920,940,9BO, 1030, 1050, 1090, 1190, 1300 

, 1830, 1410, 1520, 1540, 1400, 1440, 1490, 1720, 1740, IBOO, 1820 

740 60T01830 

Command handler routines. 

750 IFN=0THEN970 

740 IFft=7ANDI1(l)>0THEN940 

770 fl=N:PRINT"0K':60T01830 

780 1FS=0THEN970 

790 A=S:IFA=7ANDH(1)>0THEMH=1 

800 PRINT'OK" 

810 60TD1830 

820 IFI(=0THEN970 

830 IFNO0THEN940 

840 ft=ll:PRINT'0K"!lFA=19ANDI1(3)>0THEN«=3 

850 IFA=20ANDN(2)>0THENH=2 

840 IFA=27ANDI1(4)>0THENI1=4 

870 1FA=32AN0I1(5)>0THENN=5 

880 60Tai830 

890 IFE=0THEN970 

900 IFI1O0THEN940 

910 A=E!PRINT"OK';60T01830 

920 IFU=0THEN970 

930 A=U:60T01830 

940 IFD=0THEN970 

950 A=D!6()TB1830 

940 P»='68V '+MIH)+' YOLXPH 68V VCR6";60SIIB4:GOT01830 

970 P«="6SVIV RH HL D2B 6L TL RH 6SZG l«!IVX6RLN":60SUB4:80T01830 

980 !FV2=2ANDA=2THENP«='BSV YLC RH U2HBVHVN 6L 6SV U0LLr!G0SUB4 

: GOTO 1830 

990 IFV2=00R(I(V2)<>AANDI(V2)<>0)THENP»="R HLH'6 HVV R6 SVIV;BO 

SUB4:60T01830 

1000 IFI(V2)=0THENP»="BLF ZIV ZOIVZNB XZIIBRHT R6"!BOSUB4:60T01B 

30 

1010 IFP3=10THENP«='BLF XZH'6 XZIIB ZNB6SRHT NLIV'!60SUB4:G0T018 

30 

1020 ltV2)=0:P3=P3+l:PRINT"OK';GOT01B30 

1030 lFV2=0ORIlV2)<>OTHEMPt='R NLH'G SZEV RB":B0SUB4:6flT01830 



1040 P3=P3-1:1(V2)=A:60T01830 

1050 CLS:PRINT"PLAYER'S INVENTORY" 

1040 FORT=1T021:IF1(T)=OTHENP»=I»(T):BOSUB4 

1070 NEXT 

1080 60T01920 

1090 IFN=OTHENP»='GSVIV ZIVH'B ZHB NLHH6VIH SVIV;60SUB4:60T0183 



1100 IFA=20ANDP4=0THENP«="BLF XZN'B ZB6ZXP RH BSV NZIP';60SUB4iB 

0T01830 

1110 INPUT'MITH WHICH HEAP0N';V2(:IFLEN(V2t)<3THEN1110 

1112 V0$=V2$:6DSUB4:V2t=Vt 

1120 V2=0:V2»=RIBHTHV2»,3):F0RT=1TB21:IFV2»=RIBHTI(1«(T),3)THEN 

V2=T 

1130 NEXT:IFV2=00RHV2)<>0THEHP$="BLF NLH'B SZEV 6SZ6 DVZKLH':60 

SUB4;B0T01830 

1134 IFV2<>4ANDV2<>14THENPt='6SZ6 RHN'B Z l)VZKLN':60SUB4:60TD183 



1140 IFV2=14ANDHMTHENP*='6SV UOZNRNT HDLIN PRODVM 6SV HORNV XIV 

Z8FIV:GOSU64:P2=P2H5:H=0:H(4)=0:60T01B30 

1150 IFRND(100)<(40-PS)THENPt='BLF NRHHVH BSV ■^HI(H):60SUB4:60T 

01830 

1140 P(=:'BLF SR6 BSV ■^H*(n):G0SUB4:N(H)=H(H)-5:IFH(H)<=0THENPt> 

■RG RH HVZN":B0SUB4:H(H)=O:P2=P2+15:IFH=5THENP2=P2+35 

1170 IFH(R)=OTH£NH=0 

1180 GOT01830 

1190 T=V2:IFT=00RI(T)<>0THENP«='R NLH'G SZEV 6SZfi':BOSUB4j60T018 

30 

1200 IFT<>1ANDT<>12ANDT<>14THENP$='EVIB H6IZHTV. HL6SRHT SZKKVHH 

■:fiOSUB4:60T01830 

1210 IFTMTHENPt='HLGSRHT SZKKVHH':6I)SUB4:60TB1830 

1220 IFT=12ANDN=5ANDS4<4THENP$:='6SV YOZXP NIZTLH IVU0VX6H 6SV OR 

T56HRHT YLD& RN6L BSV D20D':60SUB4:6QT01B30 

1230 IFT=12ANDP4>2THENPt=-nL6SRHT SZKKVHH'':80SUB4:60T01B30 

1240 IFT=12ANDH=0THENPt='Z YLDG LU ORTSGNRHT RH IVOVZHVN YB 66V 

DZHN":60SUB4:P4=P4+1:60T01830 

1250 IFT=12THENP4=P4+1:P«=''Z YL06 LU 0RTS6HRHT SR6H BSV •+H»(H)i 

GOSUB4:H(N)=H(H)-15;IFH(H)<=OTHEHH(H)=0:P2=P2+15;M=0:P«="R6 RH H 

VZM':60SUB4 

1240 IFT=12TH£N1830 

1270 1FTM4ANDA=9ANDS2=0THENS2=1:P»='Z HVXIV6 H6ZRIXZHV NLDH ZKC 

VZIH':60SUB4:GOTD1B30 

1280 IFT=14ANDA=12ANDS3=0THEN53=1:P»='Z HVXIV6 ILLN 6L 6SV HLFGS 

ZmZIH-:6aSUB4:G0T01B30 
1290 P$="«LGSRMT SZKKVHH":60SUB4:60T01B30 

1300 IFV2='2ANDI(l)=0AND51=0THENSl=l:Pt='6SV NV6ZD YZI SVOKVH. GS 
VIV RH Z PVB RnHRMV:60SUB4:I(3)=2:60T01830 
1310 IFV2=2ANDI(1)=0ANDS1MTHENP«="6SV YLC RH ZOIVZNB LKV«':60SU 
B4:60TD1830 

1320 IFV2$=''LLrANDA=9ANDS2=lTHEHP»="6SV NLLI RH ZOIVZNB LKVH";6 
0SUB4!60T01830 

1330 IFV2$=''LLrAHDA=9AHDS2=0THENP»="6SV NLLI NLDH HVVHH GL YV 
LXPVN NZTRXZ006':GOSUB4:60T01830 
1340 IFV2=21AHD(A=I(21)0RI(21)=0)T1ENPM"Z00 BSZ6 BLF XZH HVV RH 

Z EVIB YIRTS6 ORTSG RNHRHV BSV XSVH6':G0SUB4:6DT01830 
1350 IFV2=2ANDS1=0THENP»="BLF ZIVH'G H6ILHT VNLFTS 6L LKVH RG";B 
DSUB4:6DTD1830 

1340 IFV2«="LLrANDA=lANDI(3)<>0THENP»="BLF NLH'B SZEV 6SV PVB": 
60SUB4:GOT01830 

1370 IFV2l="LLI"ANDA=lANDI(3)=0ANDS0=lTHENPt='GSV NLLI RH ZDIVZN 
B LKVH":60SUB4:60T01B30 

1380 IFV2$="LLI"ANDA=lANDI<3)=0ANBSO=OTHENS0=l;P«="6SV NLLI RH H 
LD LKVN':GOSUB4:GDT01B30 
1390 IFV2t'"LLI"ANDA=40ANDI(3)=0THENP»='65V PVB NLVHH'E UR6'i60S 
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UB4:60TD1830 

1400 Pi='R HH'B NL GSZS"!60SUB4jBOT01830 

1410 IFV2=0DRI(V2)<>0THENP$="BLF KLH'S SZEV BSZB"iG0SUB4!B0T0183 



1420 IFV2=17ANDft=12ANDS3=0THEHS3=l!Pt='Z GIVZHFIV EZF06 RH VCKLH 

Vt(":60SUB4:P3=P3-l:I»(17)="iIll7)=-A:BOT01B30 

1430 IFV2=17ANDA=9ANDS2=0THENS2=l!P«='Z HfiZRHZHV HLDII RH VCKLHV 

IC:BOBUB4!P3=:P3-l!U(17)=""!l(l7)=-A;60T01830 

1440 IFV2=17ANDA=40ftNDS4=0THEMS4=ljP*="BSV HLI6S ULLI RH KVHGILB 

V«"!G0SUB4:P3=P3-liI«(17)="!l(17)=-A:BOT01B3O 

1450 IFV2=17AMD«<>0THENP«='6SV VCKOLHREV YZOO SRGH 6SV "+«»(«) :6 

0SUB4il1(H)=N(l1)-15!U(17)=":I(17)=-A!P3=P3-l:lFI1<=0THENH(m=0:T 

=M:H=0:P2=P2+15:P<="R6 RH HVZ«":60SUB4!B0T01B30 

1460 IFV2=17ANBT=5THENP2=P2+35 

1470 IFV2=17AMDI1=0THENP«="BSV YZOO VCKOLKVN ZTZRHHG GSV HGLHV DZ 

00'!G0SUB4:1$(17)=":1117)=0:P3=P3-1 

1480 IFV2=17THEN1830 

1490 IFV2=20THENP«="GSV UOZHP HSZ66VIVN RH6L NROORLHH LU KRVXVH" 

!BOSUB4!l(20)=-A:P3=P3-l!l$(20)="!BOT01830 

1500 1FV2=!13ANDH=2THENI(13)=-A:H(2)=0;P«="BSV "+«$(«)+" SZH EZDR 

HSVtC!B0SUB4!l$(13)=":I(13)=-A!l1=0:P2=P2+15iP3=P3-l:BflT01830 

1510 GOT01030 

1520 IFV2»='GFV"ANDA=12ANDS3=0THENS3=l!P$="Z HVHVS KZHHZTV BL 6 

SV HLFBS ZKKVZIH':GDSUB4:G0TD1830 

1530 IFV2«="GFV"ANBA=12ANDS3MTHENS3=0iP»="GSV HLF6S KZHHZTV JOL 

HVU':60SUB4:80T01B30 

1540 IFV2»="BLN'ANDA=38THENA=l!P»="BLF ZIV BV0VKLI6VK BL ...."iB 

0SU64:B0T01830 

1550 P»="R MLN'B FHKVIHSZHK BSZB BLF BZHB NV 6L «L"!G0SUB4:B0T01 

830 

15iO 1FV2=OORI(V2)<>OTHENP»="R MLN'G SZEV GSZB":60SUB4!60T01830 

1570 IFV2MTHENP5=P5-(3+RND(5)):P»="BLF HFtWVHOB UVVO NFKS DVZPV 

l':B0SUB4:I(4)=-A:l$(4)="!P3=P3-liB0T01B30 

1580 IFV2=9THENP5=P5+5+RND(5)!P$="BLF HFIWVI10B UVVO NFXS HBILHTV 

r:B0SUB4:I(9)=-A;I«(9)="'!P3=P3-l:G0T01830 

1590 PJ=:"KLM'6 YV IR((R1(FOLFH"!BOSUB4!60T01830 

1600 IFV2=00RI(V2)<)0THENP»="R NLH'B SZEV BSZ6"!G0SUB4!6,0T01830 

1610 IFV2=4THENPRINT'Ot!."!U(4)="iI(4)=-A:P3=P3-l:GOT01B30 

1620 IFV2=9THENPRINT'0K.":I«(9)=:"M(9)=-A;P3=P3-1:B0T01830 

1630 IFV2=20ANDS4=0ANDA=4OANDS5=0THENP$="GSV ZXRK HVHBILBVtl BSV 

OLXPVW MLLr!S0SUB4;S4=l!H(20)="VNKBB U0ZHP':S5=1;B0T01830 

1640 IFV2=20ANDS5=0THENP»='BSV ZXRH YFYYOVH RHGL GSV UOLLI":SOSU 

B4iS5=l!l«(20)='VNKBB UOZHP" :60T01830 

1650 Pt=-R HLfl'G FHHVIH6ZNN DSZE BLF DZHG NV BL WL':B0SUB4:GQT01 

830 

1660 IFV2=0ORl(V2)<>OTHEIIPt="R tILH'B SZEV BBZG'!BOSUB4!60T01830 

1670 IFV2=llTHENI(V2)=-A!l$(V2)=""!P3=P3-l:S6M:P»="Z HBZRIXZHV 

KLDH RH VCKLHVli";BOSUB4!BOT01830 

1680 Pt='R XZH'G NL GSZG':60SU64:B0T01830 

1690 IFV2<>10THENP»="R HM'B «L GSZB"i60SUB4i60T01830 



1700 IFM=1THENN(I1)=0:P«="BSV •+N«(H)+' RH XSZINVl*":60SUB4:H=0iP2 

=P2+15!SOT01B30 

1710 PRINT'0K":B0T01B30 

1720 1FV2<>1BTHENP»="R XZH'B IVZW BSZ6":60SUB4!60T01830 

1730 IFI(18)<>0THENP$="BLF HLN'B SZEV 6SV HnLOO":60SUB4i60T0183 



1740 IFH=3THENP»="GSV ■+«♦(«)+' RH NVH6ILBVI("!B0SUB45P3=P3-l!l(l 

8)=-AiI«(lB)=":H(N)=0:P2=P2+15;H=0:BOT01830 

1750 P«="BSV HXILDO HZBH: IVZHRNT BSV NZTRX HKVOO RRHXIRYVH LH B 

SRH SLOB MLXFNVHG OROO IVHFOB RH GSV MVH6IFXBRLN LU ZHB IVN NIZT 

LN RH BLFI KIVHVNXV."!60SUB4iBOT01920 

1760 IFV2<>5THENPRINT"I(HAT?":B0T01B30 

1770 IFI(5)<>0THENP$="BLF HLM'B SZEV RB":GOSUB4;GOT01830 

17B0 IFP4=1THENP«="BLFI OZHK RH ZOIVZKB LH'iB0SUB4!60T01B30 

1790 P4=l!l«(5)='0RG "+It(5)!GOT01830 

1800 CLSiPRINT'PLAYER'S STATUS:" 

1810 PRINT'CURRENT HIT POINTS: "PI sPRINT'STREHGTH LEVEL: •P5: PRINT 

"EXP. POINTS: "P2:60TO 1920 

1820 CLS:PR1NT"6AHE OVER";P2=P2-30:BOT02010 

Update player status and conduct combat if 
appropriate. 

1830 TI=TI+l;rFPl<P0THENP7=P7+.2:IFP7=lTHEHP7=0:Pl=Pl+l 

1840 IFN=0THEN1940 

1850 IFI(19)=0THEN1940 

1860 T=RNB(100):IFT<20THEN1940 

1870 P«="SSV •+««(«)+■ 26BZXPH, ":60SUB4 

1880 T=RND(100):IFT<30THENP»='RB HRHHVH":60SUB4:60T01940 

1890 P»="RG SRGH BLF":GOSUB4;Pl=Pl-10:IFH7)=0THENPl=Pl+5 

1900 IFPK0THEN2130 

1910 G0T01940 

1920 F0RT=1T0700:IFINKEY»=""THENNEXT 

1930 GOT01950 

1940 F0RT=1T0150:IFINKEY$="THENNEXT 

1950 F0RT=OT00 

initialize for new turn and jump to appropriate 
room description. 

1960 N=O:S=0:E=0:ll=0:U=0:i)=0:A$="":B«="":C»="":B«="';Vl=0:V2=0:V 

»="";V1«="":V2«="" 

1970 ONAGOT010,20,30,40,50,60,70,80,90, 100, 110, 120,130, 140, 150,1 

60,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,3 

20, 330, 340, 350, 360, 370, 1^80, 390, 400 

1980 P»^"BLF SZEV VHXZKVK UILN GSV NFNTVLH LU GSV TL«H!":60SUB4 

Calculate and display player ratings. 

1990 PRINT-TOTAL ESCAPE TIME ="TI 

2000 IFl(21)<>0THENPt="BLF KRWH'B TVS BSV XSVH6, GSV IVYVOORLN D 

ROO YV XIFHSV«!l!":BOSUB4:B0T02135 
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2010 P2=P2+30: IFI (8)=0THENP2=P2+30 

2020 IFI(15)=0THENP2=P2+30 

2030 IFI(21)=0THENP2=P2+10O 

2040 PRINT'FINAL SCORE: ■P2' OUT OF A POSSIBLE 300' 

2050 P$='nNPRnT! ":B0SUB4 

2060 IFF2=300THENP«^"VCKVI6 Zt(EVHBFIVr:60SUB4:60TO 2135 

2070 IFP2>280THENP$="mHH Z VCK0LIVrj6OSUB4:BOT02135 

2080 IFP2>250THEHP»='X0ZHH Y VCKOLIVr:BOSUB4:B0T02135 

2090 IFP2>200THENP"CLASS C EXPLORER" :B0SUB4:60T02135 

2100 IFP2>150THENP«="URIHB XOZHH HXLF6":S0SUB4:B0102135 

2110 IFP2>100THENP"N0VICE SCOUT ■:BOSUB4:60T02 135 

2120 P$='YVTRH«VI':B0SUB4:B0T02135 

2130 P«="BLF ZIV NVZ«."!":60SUB4 

2135 INPUT "DO YOU KANT TO PLAY A6AIN? (y/N)"!lNt:IFLEFT«(IN»,l) 

="V"THENRUNELSECLS:END 

"Play again?" routine. Restart or ciean up and 
end. 

2140 CLS:CLEAR800:DEFINTA-0,B-Z:C155=-155:C64=64:P=0:II=0:N1=1:P 

»="":DINU(21),I[22),N(5),K«!5),V«(23) 

2150 60SUB2240 

2160 F0RT=lT021:READI»(T),I(T)iNEXT 

2170 F0RT=1T023:READV$(T):NEXT 

initialize workspace. Read in items, verbs, and 
monsters. 

2180 FORT=1T05:READH»(T),I1(T):NEXT 
2190 FORT=1T015!PO=PO+RND(2)!NEXT 
2200 P1=P0 
2210 F0RT=1T05!P5=P5+RND(5)!NEXT 

Establish player strength and hit points. Jump to 
first room. 

2220 IF1NKEY«="THEN2220 

2230 A=l!60T010 

2240 CLS!PRIMTTAB(15)"ESCAPE FROM THE DUN6E0N OF THE BODS' 

2250 PRINTTAB(31)"BY":PRINTTAB(28)'RAY SATO" 

Display introduction and instructions. 

2260 PRINT 

2270 PRINT" FOR YEARS, THE SHALL MEDIEVAL TOHN OF ALVARD HAS 

RULED BY A" 

2280 PRINT'KIND HAN, KINB SAFUIS I. HONEVER, NHEN HE DIED, HIS 

SON BECAME" 

2290 PRINT"THE NEN RULER. KINB SAFUIS II NAS A HARSH, CRUEL NAN 

NHO" 

2300 PRINT"TURNED ALVARD INTO A CITY OF TERROR AND DESTRUCTION." 
2310 PRINT:PRINT" YOU AND SEVERAL OTHER CITIZENS OF THE TOUN 
HAD FORNED A ' 

2320 PRINT"SHALL ARNY TO REBEL ABAINST THE EVIL RULER, BUT ON TH 
E DAY BE-" 
2330 PR1NT"F0RE YOUR FIRST ATTACK ON THE KINB, HIS SECRET POLICE 

CAPTURED" 
2340 PRINT'YOU AND IHPRISONED YOU IN THE LEBENDARY DUN6E0N OF TH 
E BODS' 

2360 PR1NT!PRINTTAB(19) "PRESS ANY KEY TO CONTINUE"; 
2370 IFINKEY$=""THEN2370 
2380 CLS 

2390 PRINT" YOU ARE NON BEING HELD IN A DISHAL PRISON CELL NH 
ILE THE' 
2100 PR1NT"KINB'S FORCES CONTINUE TO DESTROY THE ENTIRE VILLAGE. 

YOU HOST* 
2410 PRINT-ESCAPE FROM THE DUN6E0N AND HELP THE REBELLION DEFEAT 

THE KING.' 



2420 PRINT-HERE IN THE DUNGEON, LE6ENDS SAY THERE IS A SPECIAL C 

HEST' 

2430 PRINT'CALLED THE CHEST OF THE BODS, NHICH HAS THE POtlER TO 

DESTROY' 

2440 PRINT'THE KING AND ALL HIS FORCES. YOU HOST FIND THE CHEST 

AND SEV-' 
24S0 PRINT'ERAL OTHER TREASURES HIDDEN IN THE DUNGEON. BUT BEM 
RE!!' 
2460 PRINT-SEVERAL POWERFUL HONBTERS PROTECT THE CONTENTS OF THE 

DUNBEON' 
2470 FFINT'AND YOU NILL BE FORCED TO SLAY THEN IF YOU HEET THEN. 

■ 

2480 PRINT!PRINTiPRINTTAB(19) 'PRESS ANY KEY TO BEGIN')! RETURN 
Item, Verb, and Monster data. 

2490 DATANVGZO YZI,2,NVBZ0 YLC,-2,yiZHH PVB,-2,KLBRLN1,4,YIZHH D 

ZNK,5,0ZMXV,6,HSRVON,6,YZI LU K0Z6RNFN,7,KL6RLM2,8,U0FGV,10,XLKK 

VI XLRN,11,DZNN1,13,NZTRX MFH6,14,UDZNRHT HDLIN,16,1 WLAVH HR2NL 

I1NH,19,DZNN2,21,VCK0LHREV YZO0,23,HXIL00,26,IR«T,27 

2500 DATAUOZHP LU ZXRN,28,XSVHG LU GSV TLNH,33 

2510 DATAHLIBS,HLFGS,DVHG,VZHG,FK ,NLD«,TVB,IIILK,RHEVH6LIB,ZGGZX 

P,DZEV,LKVH,0LLP,GSILD,KFHS,NIRNP,KLFI,RHHVIB,K0ZB,IVZN,0RTS6,HB 

2GFH,JFRB 

2520 DATAXSILNZGRX HHZPV,15,Y0ZXP XFYV,20,IVII NIZTLN,25,H0RNV XI 

VZBFIV,20,TRZHB YOZXP NIZTLI1,35 



TRS-80® SWAT TABLE FOR: 

ESCAPE FROM THE DUNGEONS OF THE GODS 

(Modified Parameters: NU = 5, B = 200) 
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LINES 


CODE 


LENGTH 


LINES 


CODE 


LENGTH 


2 - 


10 


NO 


284 


1340 - 


1360 


BA 


233 


20 - 


50 


UA 


215 


1370 - 


1390 


CV 


202 


60 - 


100 


Bfi 


215 


1400- 


1430 


NJ 


276 


110 - 


140 


SB 


243 


1440- 


1450 


HO 


249 


150 - 


ISO 


zn 


212 


1460 - 


1490 


SE 


226 


190- 


230 


HV 


233 


1500 - 


1520 


HY 


204 


240- 


280 


DP 


230 


1530 - 


1560 


DX 


245 


290 - 


330 


EF 


226 


1570 - 


1590 


YZ 


226 


340- 


370 


Vfi 


218 


1600 - 


1630 


XT 


233 


3B0 - 


410 


LN 


211 


1640- 


1670 


SF 


284 


420 - 


450 


EJ 


211 


1680 - 


1720 


VO 


204 


460 - 


490 


n 


235 


1730- 


1750 


H6 


312 


500 - 


540 


Q2 


152 


1760 - 


1800 


RA 


179 


550 - 


590 


CT 


116 


IBIO- 


18S0 


OL 


188 


600 - 


630 


HH 


207 


1860 - 


1900 


PB 


167 


640 - 


680 


ZB 


130 


1910 - 


1950 


PC 


73 


690 - 


730 


LP 


238 


1960 - 


1970 


LB 


240 


740 - 


780 


DX 


76 


1980- 


2010 


CY 


205 


790 - 


830 


J2 


71 


2020 - 


2060 


RR 


159 


840 - 


8B0 


HD 


104 


2070 - 


2110 


HL 


208 


890 - 


930 


B6 


74 


2120 - 


2140 


SL 


210 


940- 


980 


VI 


194 


2150 - 


2190 


BJ 


107 


990- 


1020 


Tl 


206 


2200 - 


2240 


SB 


110 


1030 - 


1070 


ZD 


141 


2250 - 


2290 


NF 


243 


1080 - 


1112 


SI 


168 


2300 - 


2330 


SN 


270 


1120 - 


1140 


YE 


258 


2340 - 


2390 


PH 


196 


1150 - 


1190 


CZ 


257 


2400 - 


2420 


VI 


206 


1200 - 


1230 


SO 


243 


2430 - 


2450 


HJ 


203 


1240 - 


1250 


RC 


203 


2460 - 


2490 


AJ 


411 


1260- 


1300 


ZS 


285 


2500 - 


2520 


TC 


269 


1310 - 


1330 


TP 


204 
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The Adventure is 




May 1982 
Titanic 

You are the Captain of the Titanic on her 
maiden voyage. Suddenly a large white ob- 
ject comes into view through the window. 
Can you avoid the historic collision? If not, 
can you save the lives of your passengers 
and crew? 



Aprii 1982 
Witches' Brew Adventure 

You find yourself in an enchanted forest. 
You must find your way to the castle and 
rescue the Princess who is chained inside 
its dungeon. A tightly-woven blend of fan- 
tasy, horror, and science fiction, this com- 
plex adventure will challenge your wits and 
ingenuity. 



March 1982 
James Brand Adventure 

The President's life is in danger. As 
James Brand, you must save his life and 
destroy the evil Dr. Death. Your life is con- 
stantly on the line; each move you make 
could be your last. "Your assignment, Mr. 
Brand...." 



February 1982 
Klondike Adventure 

Snow, ice, and bitter cold surround you. 
Your search for fame and fortune in the nor- 
thern country will lead you through many 
perils, but you may also see some familiar 
faces along the way. This breezy adventure 
will keep you occupied inside while the 
winter winds blow outdoors. 



January 1982 
Windsloe Mansion Adventure 

A famous prisoner lies in the dungeon of 
an old mansion. An underground passage 
connects the mansion with the Blair house, 
whose owners will help you to rescue the 
prisoner. Can you overcome the human and 
the supernatural creatures who inhabit 
Windsloe Mansion? 



December 1981 
Biacl( Hoie Adventure 

The crew of an interstellar craft discovers 
the long-lost Deep-Space Probe One, the 
Cygnus, at the edge of the vortex surround- 
ing an immense black hole. See if you can 
foil the plans of Dr. Hans Reinhardt. 



November 1981 

Around the World in Eighty Days 

Adventure 

Try to repeat the feat of the classic novel, 
complete with a balloon and other exciting 
features of the original adventure. Are you 
ready to take the challenge? Bon voyage! 



October 1981 
Crime Adventure 

Test your skills as a detective, sifting 
through hundreds of clues. You may have to 
become the new Sherlock Holmes to solve 
this one! Look for the strange, but don't 
overlook the obvious, as you try to find Mrs. 
Fenwick and return her to where she 
belongs. 



September 1981 
Jack The Ripper Adventure 

Jack the Ripper is running rampant in 
London and you must stop him! Scotland 
Yard demands that you take action, and the 
only answer is to set yourself up as a decoy. 
Be careful how you plan your costume, or 
dear Jack will laugh hysterically and leave 
you in the dust! 



August 1981 
Treasure Island Adventure 

You are a hardy adventurer In search of 
fame, fortune, and whatever else you can 
get. You find yourself on an island where 
there is rumor of pirate's treasure. But 
watch out for the evil magician and the 
underground torture chamber! You may end 
up in a spot where all roads coming into it 
are paved with good intentions. . . 



July 1981 
Alien Adventure 

You are the sole survivor of a crew on a 
mission to deliver a cargo of oil to Earth. A 
crash landing has left you stranded on a 
small planet, harshly alien but rich in lead, 
gold and platinum. You must find provi- 
sions and a means of leaving the planet. 
But beware of the THING that massacred 
your crew! 



June 1981 
Arabian Adventure 

As Sinbad, the mightiest sailor in ancient 
Arabia, your mission is to rescue Princess 
Jasmine from the clutches of the Wizard of 
Darkness. You will cross the Seven Seas to 
the deadly Cyclops Mountain, and do battle 
with skeletons, a one-eyed beast, a hairy 
tarantula and more monsters who try to 
thwart your noble pursuit. 
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Wait ins for You 




♦ ♦<» 




JUNE ADVENTURE OF THE MONTH 
ARROW ONE 

You are Adam Trent, a trouble-shooter for the Federation of 
Space. You descend to an alien planet and make a horrifying 
discovery, which impels you Into a desperate and dangerous 
quest. This unique science fiction adventure will test your 
skills and ingenuity. 



Subscribe to Adventure 
of the Month 



How would you like to go back in time to 
19th century London to match wits with 
Jack the Ripper? Out into space to brave 
the swirling vortex of a black hole? Into the 
depths of the ocean, or on a quest to 
rescue a beautiful princess from the 
clutches of evil monsters? 

You never know where SoftSide Maga- 
zine's Adventure of the Month might take 
you. But you can be sure that each month 
you will experience new delights and new 
challenges as you receive an original 
adventure on tape or disk, ready to load in- 
to your computer. 

The cost? A six-month membership is 
just $29 for the tape ($4.83 per adventure) 
or $49 for the disk ($8.16 per adventure). If 
you're not sure that you can take six full 
months of excitement, you can order a 
single tape for $7 or a disk for $10. Or, if 
you're especially adventuresome, we're 
offering disks, packed with three great 
adventures, for only $26 per disk. 

Please use the coupon below (or the 
bind-in card in this issue) to order. 



Adventure of the Month 

6 South Street, Milford NH 03055 



r- 



—\ 



Yes, I'm ready to start! Send me Adventures — 



Six month subscription: 

n Cassette — $29 

D Disk — $49 

individual adventures (piease specify) 



n Cassette — $7 each 
D Disk — $10 each 

■ Three adventures on one super disk ($26 each): 

n Arabian, Alien, and Treasure Island Adventures 
D Jack the Ripper, Crime, and Around the World Adventures 
D Black Hole, V\/indsloe Mansion, and Klondike Adventures 
D James Brand, Witche's Brew, & Titantic Adventures 



Please specify which computer: 

n Apple (req. 24K for tape, 32K for disk) 
D ATARI® (req. 32K for tape, 40K for disk) 
D TRS-80® (req. 16K for tape, 32K for disk) 

Name 



Address _ 
City/State . 



U Payment enclosed 

n MasterCard D VISA Name of Cardholder . 
MC#and lnterbank#/VISA# 



-Zip- 



Exp. Date. 



.Signature . 



Prices subject to clnange without notice, Apple. ATARI" and TRS-80' are registered 
trademarks of Ttie Apple Computer Company. Warner Communications and The Tandy 
Corporation respectively. 
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By Jon Voskuil 

TRS-80®and ATARI® versions By 

Alan J. Zett 

SWAT is a debugging utility pro- 
gram for any Apple with Applesoft, 
ATARI®, or TRS-80®. 

One of the major frustrations of typ- 
ing in computer programs from printed 
listings is finding typographical errors. 
Every day the programming staff at 
SoftSide receives a number of letters 
and phone calls from readers who are 
in the midst of rediscovering one of 
Murphy's many laws, "There is always 
one more bug." Only a very few of 
these inquiries turn up an actual 
mistake in the published listing; the 
great majority result from hard-to-find 
typing errors. We are often able to help 
locate these errors during a phone call, 
if the program's behavior is distinctive 
enough or if one of us is familiar 
enough with the program's internal 
operation. But the process can be very 
time-consuming, for you and for us. 
We constantly wish that there were a 
better way to pin down the location of 
hidden typos in program lines. 

Enter SWAT, our "Strategic 
Weapon Against Typos." Inspired by 
a program with a similar purpose in a 
recent issue of Nibble (to give credit 
where it's due), we've developed these 
three short programs to help you find 
differences between any program 
listing which we print and the lines 
which you type into your computer. 

If you look at the programs in this 
issue, you will notice, at the end of 
every listing, a "SWAT Table" con- 
taining various numbers and letter 
codes. Such tables are the end result of 
running the SWM 7 program. The idea 
is that a SWAT Table created by us 
here at SoftSide, using the program 
from which the magazine listing was 
made, should be identical to a SWAT 
Table created by you on your com- 
puter, using the program you have 
typed in from the listing. If there are 
any differences, you will know that 
there is a disagreement between the 
program in your computer's memory 
and the one in ours; and the SWAT 
Table will tell you, within a few pro- 
gram lines, where to find the error. (On 
those very rare occasions when the 
published listing goes astray from 
what's in OUR computer, it will help 
pinpoint that as well.) 

What ^^f'/ir Does 

Three different columns of informa- 
tion are generated by SWA T. Each en- 
try in the first column is a range of line 
numbers; each entry in the second col- 
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umn is a two-letter "SWAT Code"; 
and each entry in the third column is 
the length, in bytes, of the specified 
program lines. 

SWAT% operation is quite simple. 
Starting at the first memory location 
where program lines are stored, it 
begins examining the computer's 
memory. It finds the line number of 
the first line of the program, and the 
pointers which give the location (ad- 
dress) of the beginning of the next line. 
Jumping to that address, it then finds 
the address of the following line. In 
this way it scans twelve program Hues 
or about 500 bytes of memory, 
whichever comes first. This informa- 
tion is incorporated into the three- 
column SWMr Table: The first entry 
in column one lists a range of line 
numbers, and the corresponding entry 
in column three gives the number of 



bytes of memory occupied by those 
lines. This procedure is repeated until 
the end of the program is reached. 

This information alone would be 
quite valuable in finding typing errors 
in a program, but not all errors would 
be caught. Although extra or omitted 
characters would usually show up in 
the byte length number, simple 
mistyped characters would slip by un- 
noticed. So SH^r performs one addi- 
tional calculation (the one which takes 
most of the time) as it goes through 
each group of program lines. It adds 
up the value of every byte (the 
numerical contents of every memory 
location) from the beginning to the end 
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of each group of lines. The resulting 
many-digit total is then converted into 
a base-26 number so that it can be 
represented by letters of the alphabet, 
and the rightmost two "digits" (letters) 
of this number become the SfVAT 
Code in column two of the table. 

How To Use 5 ^f^r 

The first step, of course, is to type in 
the SWAT pTogram and save it to tape 
or disk. (It can be used to check itself 
for ivpos, with the simple modifica- 
tions described below.) Then, to use 
SWAT on another program, you must 
first append it to the end of the pro- 



gram you want to trouble-shoot. The 
most straightforward way of doing this 
is to LOAD it into memory before you 
even start typing in a program from a 
magazine listing. If you neglect to do 
this, however, it's not difficult to ap- 
pend it later, using the following 
procedures: 

APPLE: If you have a disk, write the 
SWAT program to a disk text file; it 
can then be EXECed into memory at 
any time. If you don't have a disk, you 
can append SWAT from tape with the 
following three steps: 

(a) POKE103,PEEK(175)-2:POKE104,PEEK<17A) 

(b) LOAD (SHAT prograi) 

(c) POKE 103,1:P0KE 104,8:DEL 0,0 
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A more complete description of 
these procedures can be found in the 
box on page 41 of last month's 
SoftSide. 

ATARI®: Instead of SAVEing or 
CSAVEing the SW^/1 T program to disk 
or tape, LIST it. The command would 
be LIST"D:SWAT" for disk, or 
LIST"C:" for cassette. You can then 
append the program to one in memory 
using either ENTER"D:SWAT" or 
ENTER"C:". 

TRS-80®: If you have a disk, SAVE the 
SWA r program in ASCII format using 
the command SAVE"SWAT",A. It 
can then be appended to one in 
memory with the command 
MERGE"SWAT". Cassette users will 
need to execute the following series of 
commands: 

(a) A=PEEK(lA562)l25i+254jA«A+M536»(A>3 
2767):P0KEA,PEEK(16S48):P0KEA+1,PEEK(16S 
49):A=PEEK(li633)tPEEK(16634)t25<t-2!B«l« 
T<A/25i)!A=A-B«25i:P0KE14548,A;P0KE14549 
,6;CLEAR 

(b) CLOAD (SHAT progrii) 

(c ) A=PEEK ( 16562) 1256+254: A=A+65536t ( A>3 
2767):P0K;E16548,PEEK(A)!P0KE16549,PEEK(A 
+1):CLEAR 



Once you have appended SWAT to 
your typed-in program, just RUN it 
and it will produce a SWAT Table on 
your video screen or printer. On the 
Apple, type RUN 60000; on the 
ATARI®, type GOTO 32000; and on 
the TRS-80®, type RUN 65000. Once 
the SWAT Table has been generated, 
simply compare it to the one published 
with the program in the magazine. If it 
is identical you can pat yourself hearti- 
ly on the back, delete the SWAT lines 
from memory, and get started using 
your program. 

Whattodoif thei'W'/^r 
Tables Don't Match 

(1) First examine the listed line 
numbers in the first column. If they 
don't match, it probably means that 
you have inserted, omitted, or changed 
one or more line numbers (although a 
gross error in the length of a particular 
line could throw this column one entry 
off as well). An inserted or omitted line 
will affect all column one entries from 
that point on. Search the lines in- 
dicated by the earliest entry which is 
messed up, find any erroneous Une 
number, and correct it. Then try run- 
ning SWAT again to see if the entries 
match. 
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(2) If, after verifying all the line 
numbers, there are still discrepancies in 
columns two or three, more detailed 
trouble-shooting procedures are 
necessary. A bad entry in column three 
will virtually always be accompanied 
by a bad entry in column two, although 
the reverse may not be true. 

(a) If the length entry in column 
three is bad, but the corresponding 
SWAT code in column two is ok, the 
most likely cause is a simple substitu- 
tion of one character for another 
somewhere within the indicated lines. 
A variable named NO, for example, 
may have been typed as NO; a comma 
and a period may have been confused; 
a number such as 32767 may have been 
mistyped as 32757; or perhaps a word 
in a PRINT statement was misspelled. 
More compHcated causes are also 
possible, with the same number of 
bytes added in one place as were omit- 
ted in another. Keep in mind that any 
BASIC keyword (PRINT, INPUT, 
FOR, etc., etc.) occupies only one byte 
of memory when stored in a program 
line. Thus, typing GOSUB instead of 
GOTO would not change the byte 
count in column three, but would 
change the SWAT code in column two. 

(b) If the length entry in column 
three is bad, it's possible to get some 
clue about the nature of the error by 
noticing the size of the number com- 



GRAPHICS 
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Strong Self-adhesive 
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pared to what it should be. A number 
which is too large usually indicates ex- 
traneous characters, while a smaller 
number usually indicates omitted 
characters. (Due to the way keywords 
are stored, this can be deceptive in 
some cases.) The only way to find the 
typing errors is simply to look for 
them, line by line and character by 
character. The advantage of using 
SWAT is that it narrows the field to no 
more than twelve lines or no more than 
about 500-700 bytes of code. The 
"resolution" of SWAT can easily be 
changed to a larger or smaller number 
of lines or bytes per grouping; and 
there will be occasions when we will 
publish a modified SWAT Tabic with 
greater resolution, for listings which 
invite more typographical errors than 
usual (such as this month's cover 
program). 



Errors That Maybe Aren't 

SWAT is very picky. That is its vir- 
tue, and its liability. If your typed-in 
program differs in ANY detail from 
that on our master disk, the tables 
won't match, even if those details are 
actually of no significance to the com- 
puter as it executes the program. 

In particular, here are three types of 
picky details which you are likely to 
encounter. 

(1) Differences in REM lines are 
treated by SWAT in exactly the same 
way as differences in other program 
Hues. The majority of the programs we 
list contain few or no REMs; but if 
they DO have them, they must be 
entered exactly as listed. If you want to 
add REMs for your own benefit, wait 
until after you've SWATted the pro- 
gram to do so. Apple users: Remember 
that Applesoft always inserts one addi- 
tional space following the keyword 
REM; so you should type in one LESS 
space than you see in a printed listing. 

(2) Differences in DATA lines may 
or may not be significant. On the one 
hand, such lines are among the most 
trouble-prone, and are especially dif- 
ficult to debug. SWAT can help here, 
perhaps more than anywhere else. On 
the other hand, extra spaces im- 
mediately before or after commas 
make no difference to the computer in 
reading data (unless they are enclosed 
in quotation marks) — but they DO 
make a difference to SWAT. If 
problems are indicated in lines which 
contain DATA statements, check not 
only the data items but their spacing. 
Again, Apple users must remember to 
type one less space following the 
keyword DATA than they see in the 
printed listing. 
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(3) Spacing, spelling, and punctua- 
tion within quotation marks are also 
important. In program instructions, 
for instance, the strings to be printed 
must be entered exactly as shown in the 
listing in order for SWAT to work 
reliably. Furthermore, in the case of 
the TRS-80®, all spaces between 
keywords, variables, etc., which are 
typed at the keyboard, are retained in 
memory and LISTed as entered. (The 
Apple and ATARI® delete unnecessary 
spaces when storing a program line in 
memory, and then format the line in a 
uniform way when LISTing it.) 
Therefore ALL spacing is critical on 
the TRS-80®, not just that which is in- 
cluded within quotation marks and in 
data elements. 

Using SWA T To Check Itself 

With two simple modifications you 
can use SWAT to verify itself once 
you've typed it into your computer. 
First, add one line to the end of the 
program: 

Apple: 60200 REM 
ATARI®: 32200 REM 
TRS-80®: 65200 REM 
Second, change the value of LN (in line 
60000, 32000, or 65000) to equal the 
new line number you've just added. If 
you now run SWAT hy itself (not ap- 
pended to any other program) it should 
generate the table shown following the 
program listing for your computer. 

Variables 

A: Memory address. 

Al: Beginning memory address for a 

group of program Hues. 

AA: Beginning memory address for a 

single program line. 

B: Byte limit for memory scan. 

C$: Two-letter SWAT Code. 

CI, C2, C3, CQ: Used as constants; 

equal to 1, 2, 3, and 256. 

D%: Used in converting S to a 

base-26 number. 

Dl%, D2%: Values of first and 

second digits of SWAT Code. 

I, J: Loop counters. 

L: Line number. 

LI: Lowest line number of a group of 

lines. 

L2: Highest line number of a group 

of Unes. 

LN: Beginning line number of the 

SWAT program. 

N: Screen line counter for SWAT 

Table display. 

NU: Line limit for memory scan.. 

PF: Printer flag; equals 1 if a 

printout is desired. 

S: Sum of the contents of a range of 

memory locations. 

X$: User input string. 
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« APPLESOFT BASIC ♦ 

» 'SHAT' » 

i AUTHOR: JON VOSKUIL t 

i (0 1982 SOFTSIDE « 

(tt(($((t$t$$t$(mtt($(($$»$$ 

Initialize variables. Clear the screen, 
and asl( If a printout Is desired. 

iOOOO LN = 60000:MU = 12:8 = 500 
WOIO A = 2049JC1 = 1:C2 = 2:C3 = 
3iC0 = 256:N =: 0: HONE : PRINT 
•DO YOU BANT A PRINTOUT? ";: 
SET n-.Pf = (X« = T)! HONE 
! IF PF THEN PR# 1: PRINT 

Print the SWAT Table headings. 

60020 PRINT • LINES SNA 

T CODE LEN6TH': PRINT ' — 



Looi( In memory for the next 
program line number. If it is the first 
line of the appended SWAT 
program, then quit. 

40030 LI = PEEK (A + C2) + PEEK 
(A + C3) I CQ! IF LI = LN THEN 
END 

Adjust some variables. 
60040 S = OiAl = AsL = LI 



Begin a loop to search through NU 
program lines in memory. 



60050 FOR I = 1 TO NU 



Store the beginning address of the 
present line, and look in memory for 
the beginning address of the next 
line. 



60060 AA = A:A = PEEK (A) + PEEK 
(A * CD t CO 

Lool( In memory for the next 
program line number. 

40070 L2 = LiL = PEEK (A + C2) + 
PEEK (A + C3) t CQ 



Add the contents of each byte of 
the current program line to S. 



60080 FOR J = AA + C2 TO A - Cl! 
S = S + PEEK (J); NEXT 



Check to see If the next line Is the 
first line of the appended SWAT 
program, or if length has exceeded 
B bytes. If so, end the loop 
prematurely. 



60090 IF L = LN OR A - Al > B THEN 

I = NU 
60100 NEXT I 



Convert S to a base-26 number and 
express the last two digits as a two- 
letter code. 



60110 DI = S / 676:5 = S - DZ I 6 
76:Dn = S / 26:D2: = S - Dl 
I t 26: C( = CHR$ (Dl! * 65) 
+ CHR$ (D21 + 65) 



Print the three table entries for this 
group of lines. If the screen display 
mode is being used, then pause If 
the numbers are about to scroll off 
the screen. 



60120 PRINT TAB( 6 - LEN ( STR« 
(L1)))L1" - ■L2; TAB( 21)Cti 
TAB( 31}A - Al: IF NOT PF THEN 
N = N + 1: IF N = 20 THEN N = 
1: PRINT : INPUT "PRESS RETU 
RN TO CONTINUE" I Xt: PRINT 



Go back to search the next group of 
line numbers. 



60130 SOTO 60030 



APPLE SWAT TABLE FOR: 
SWAT 


LINES 


SWAT 
CODE 


LENGTH 


60000 - 40110 


5K 


449 


60120 - 60130 


H6 


110 
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« ATARI BASIC ( 

t "SHAT" ♦ 

« AUTHOR: JON R, VOSKUIL % 

t TRANSL: ALAN J. ZETT » 

% (C) 1982 SOFTSIDE % 



initialize variables. Find the starting 
address of the BASIC program, 
dear the screen, and ask if a 
printout Is desired. 

32000 CLR !LN=32000:NU=12: 8=500 
32010 CLOSE IhCLOSE I2:A=PEEK(136)^PE 
EK(137)t256:6RAPHICS 0:OPEN 12,4,0,'K: 
":DIM Zt(12):2«=' 

32020 C1=1:C2=2:C3=3:CQ=256:N=0:P0SITI 
ON 2,11:P0KE 752,1:? "OUTPUT TO SCREEN 
OR PRINTER? (S/P)":6ET IC2,X 

Print the SWAT Table headings. 

32030 TRAP 32020:0PEN »C1,8,0,CHR$(X): 
POKE 752,C1:? tCl;" LINES SH 

AT CODE LENGTH' 
32040 ? ICl;' -— -- 



Look In memory for the next 
program line number. If It is the first 
line of the appended program, then 
quit. 

32050 Ll=PEEK(A)fPE£K(A+Cl)»CQ:IF L1=L 
N THEN CLOSE ICUCLOSE tC2:P0KE 752,0: 
END 

Adjust some variables. 

32060 S=0:A1=A:L=L1 

Begin a loop to search through NU 
program lines in memory. 

32070 FOR I=C1 TO NU 

Store the beginning address of the 
present line, and look in memory for 
the beginning address of the next 
line. 

32080 AA=A:A=A+PEEK!A+2) 

Look in memory for the next 
program line number. 

32090 L2=L:L=PEEK(A)+PEEK(A+l)>Ce 



SoftSide 



49 



MATTEL ELECTRONICS INTELLIVISION $279.99 

WIDL VIDEO $24.95 

LYNX $244.77 

MICROSTAND $45.95 

SNACK ATTACK $29.95 

SPACE ACE PRINTER STAND/ciear $27.50 

SPACE AGE PRINTER STAND/color $29.95 

NO FRILLS PRINTER STAND/ciear $12.00 

NO FRILLS PRINTER STAND/color $14.50 

PASCAL FOR BASIC PROGRAMMERS $10.95 

EXECUTIVE COMPUTING $8.95 

PASCAL-80 $89.95 

DISKETTE DRIVE HEAD CLEANING KIT $26.95 

PERCOM DISK DRIVES/TFD100 $329.00 

CASSETTES C-10 $6.95 

CASSETTES C-20 $7.95 

REMEMBER ELEPHANT MEMORY SYSTEMS 

5 '74 " Single Sided Single Density $26.95 

5 V* " Single Sided Double Density $29.95 

PASCAL: A PROBLEM SOLVING APPROACH $14.95 

REALTIME PROGRAMMING $8.95 

THE SRW "MASTER LIBRARY 

AND INDEXING SYSTEM" $19.95 

OKIDATA MICROLINE 83A $749.95 
FLIP 'N' FILE^"/'v Mini No. ri 5 $29.95 

Cassette & Game I- lie FF20 $31 .95 

REMDISK-1 $24.95 

VOYAGE OF THE VALKYRIE/Apple Disk $39.95 

TRS-80* I/Ill Tape $34.95 

TRS-80® I/Ill Disk $39.95 

AXLON RAMDISK MEMORY SYSTEM $599.00 

STARWRITER F-10 $1695.00 

SCARFMAN Tape $15.95 

Disk $19.95 

TIME LORD $25.95 

AOS UTILITIES 1 TRS-80® I/Ill DISK $99.95 

KAYOS^^/Cassette $34.95 

Disk $34.95 

ATARI® VIDEO COMPUTER SYSTEM $179.99 

MACRO-MON ITOR...THE SHADOW Mod i Tape $54.95 

Mod I Disk $59.95 

Mod III Disk $69.95 

SPACE CASTLE/Cassette $13.95 

Disk $17.95 

2/4/6 HOUR VIDEO TAPE RECORDER $809.99 

MOSTLY BASIC HOUSEHOLD PROGRAM PACKAGE 

Apple Disk .. $29.95 

TRS-80® Mod I/Ill Tape $24.95 




14 South St., Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 



Add the contents of each byte of 
the current program line to S. 



32100 FOR J=AA TO ft-Cl:S=StPEEIc:(J)iHEX 
T J 



Check to see if the next line is the 
first line of the appended SWAT 
program, or if length has exceeded 
B bytes. If so, end the loop 
prematurely. 



32110 IF L=LN OR A-Ai>B THbN I=NU 
32120 NEXT I 

Convert S to a base-26 number. 

32130 D=INT(S/676):S=S-D«676:D1 = INT(S./ 
26)iD2=S-Dl»26 



Print the three table entries for this 
group of lines, printing the last two 
digits of the base-26 number as a 
two-letter code. 



32140 ? l!;Z$(l,6-LEN!STR$lLl)));Lli" 

- ";L2;Z$(1,12-LEN(STR$(L2)));CHR»(D1+ 

65)jCHR*(D2+65): 

32150 ? ll;Zt(l,li-LENiSTR$iA-Al)));A- 

A1:IF )«>83 THEN 32170 



If the screen display mode is being 
used, then pause if the numbers are 
about to scroll off the screen. 



32160 N=N+1:IF N=19 THEN N=l:? II:? II 
; "RETURN TO CONTINUE';BET 12,0:? II 



Go back to search the next group of 
line numbers. 



32170 60TQ 32050 



ATARI® SWAT TABLE FOR: 
SWAT 

SWAT 
LINES CODE LENGTH 



32000 - 32050 6R 518 
32060 - 32160 UT 504 
32170 - 32170 VC 13 
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( TR5-80 BASIC % 

% "SttflT" $ 

« AUTHOR: JON R. VOSKUIL t 

$ TRANSL: ALAN J. ZETT $ 

$ (C) 19B2 SOFTSIDE $ 



Initialize variables. Find the starting address of 
the BASIC program and clear the screen. If a 
printout is desired, do the necessary POKEs. 



65000 CLEAR99 : LN=fc5000 ! NU=1 2 ! B=500 

65010 A=PEEK(1654B)+fEE»:{16549)»256;N=0;Pl=PEEK(16414):P2=PEEK(l 

6415):CLS:PRINT3512,STRINGt(63,M3);iPRINTa528,' Do you Mant a p 

rintout? (Y/N) ■;:60SUB65130!CLS:IFXt="VTHENP0KE16414,PEEK(1642 

2):F0KE16415,PEEK(16423) 

Set up the PRINT USING string and print the 
SWAT Table headings. 

65020 At^'ltttt - »t#H n llll":PRINTTAB(17)"LINES 
SNAT CODE LENSTH-iPRINTTABdS)" 



Look in memory for the next program line 
number. If it is the first line of the appended 
SWAT program, then quit. 



65030 Ll=PEEK((A+2)+65536l(fl+2>32767))+PEEK((A+3)+65536»(A+3>327 
67))>256:A1=A:S=0:L=L1:IFL1=L>ITHEN65120 

Begin a loop to search through NU program 
lines in memory. Store the beginning address of 
the present line, and look in memory for the 
beginning address of the next line. 

'.5040 F0RI=lT0NU:AA=A!A=PEEK((A)+65536»(A)32767))+PEEK(IA+l)+655 
36»(fl+l>32767))»256 

Look in memory for the next program line 
number. 

45050 L2=L : L=PEEK ( ( A+2 ) +655361 ( A+2 >32767 ) ) +PEEK ( ( A+3) +655361 ( A+3 
>32767) 11256 

Add the contents of each byte of the current 
program line to S. 

65060 F0RJ=AA+2T0A- 1 : S=S+PEEK ( J+65536t ( J >32767 ) ) : NEXT 

Check to see if the next line is the first line of 
the appended SWAT program, or if length has 
exceeded B bytes. If so, end the loop 
prematurely. 

6,5070 IFL=LN0RA-A1>BTHENI=NU 
65080 NEXT 

Convert S to a base-26 number and express the 
last two digits as a two-letter code. 



65090 D=INT(S/676):S=S-Dt676:Dl=INT(S/26):D2=S-Dlt26:C»=CH«»(Dl+ 
65)+CHR«(D2+65) 

Print the three table entries for this group of 
lines. If the screen display mode is being used, 
then pause if the numbers are about to scroll off 
the screen. 

65100 PRINTTAB(13);USINBA»;LliL2;C»iA-Al!lFX»<>"Y"THENN=N+l:lFN= 
14THENN=0:PRINT:PRINT8960,STRIN6»(63,143);:PRINTS978,' PRESS <EH 
TER) TO CONTINUE ";!S0SUB65130:PRINT9896,CHR»(31)i 

Go back to search the next group of line 
numbers. 

65110 G0T065030 



Restore print display to the screen and end. 

65120 PRINT!P0KE16414,P1:P0KE16415,P2!PR1NT:END 
Subroutine to get input characters. 

65130 X»=INKEY«: IFX»=""THEN65130ELSERETURN 



TRS-80® SWAT TABLE FOR: SWAT 




LINES 


SWAT CODE 


LENGTH 


65000 - 65050 


JH 


552 


65060 - 65130 


LK 


334 
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WHEN YOU SPEND SO MUCH FOR A PRINTER, 
YOU SHOULD HAVE ONE THAT YOU CAN USE— 
Introducing.... 

THE IBM TOTAL PRINTER/TYPEWRITER 




$1695 



FEATURES: 

10 and 12 Pitch, Proportional Space, Full Typewriter Use, Auto Correcting, 
Sound Cover, "Smart" Keyboard 

SPECIFICATIONS: 

200 WPM Throughput, Either Serial OR Parellel, Self-Test, Lowest On-Site 
Maintenance, IBM Backed Printer. Cables stocked for all Apple, TRS(I, II, 
III), RS-232 systems. 



GUARANTEE: 30 days on-site by IBM 

CONTACT: 

ICOM 11 N Main, Lombard, Illinois 60148 (312)932-1766 
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The Most Spectacular Extravaganza Ever. . . 

For Apple Users 



At Applefest '82 hundreds of manufacturers, 
distributors and dealers will showcase the entire 
spectrum of Apple-compatible products including 
computers, components, peripherals, plug-in cards, 
publications, gifts, magazines, services, accessories 
and software for home, office and school. 
Hands-on centers and multimedia presentations will 
demonstrate the newest applications for business, 
education and entertainment. 
Seminars and workshops, conducted by the world's 
leading Apple authorities, will detail new uses to 
make your Apple more enjoyable and more useful 
than you ever imagined. 

You'll meet thousands of other Apple owners and find 
the newest of everything for your Apple under one 
roof ... and for sale at super show prices. 
So if you use an Apple ... or are thinking about 
buying one, you won't want to miss a minute of 
Applefest '82. 

Ticket & Hotel Information 

Send your check and a note indicating tlie specific sliow you wish 
to attend. Ticl<ets and hotel information will be mailed back to 
you. Tickets can also be purchased at the show. Mal<e all checl<s 
payable to Northeast Expositions Inc. 824 Boylston Street, 
Chestnut Hill, Mass. 02167 Tel: 61 7 739 2000. 

Exhibitor Information 

For specific exhibitor information on one or all of the Applefest '82 
shows call Northeast Expositions at the telephone number above. 



Applefest/ Boston 

Fri-Sun May 14-16, 1982 

Hynes Auditorium 

Show Hours: 1 1 AM to 6PM Daily 

Admission: S6 per day or Sl0for2days, 

Sl5for3days 

Applefest/Minneapolis 

Thurs-SunSept 16-19, 1982 
Minnesota Auditorium and Convention Hal! 
Show Hours: 1 1 AM to 6 PM Daily 
Admission: $5 per day or $8 for 2 days, 
S 1 2 for 3 days, S 1 5 for 4 days 

Applefest/ Houston 

Fri-Sun Nov 19-2 1,1982 

Albert Thomas Convention Center 

Show Hours: 1PM to 10PM Daily 

Admission: $5 per day or $8 for 2 days, $12 for 3 days 

Applefest/San Francisco 

Fri-Sun Dec 3-5, 1982 

Moscone Center 

Show Hours: 1PM to 10PM Daily 

Admission: $5 per day or $8 for 2 days, S 1 2 for 3 days 

Applefest is produced by Northeast Expositions Inc. and is sanctioned 
by Apple Computer Inc. and The Boston Computer Society. 

*Apple and Applefest are registered trade and service marks of Apple 
Computer Inc. 



NORMAL LOADING 
PROCEDURES FOR 
SOFTSIDE DISKS 
AND CASSETTES 

Follow these procedures unless otherwise instructed by the 
documentation in the magazine. Back issues may differ in 
some details. 

APPLE 

Disks are in 13-sector format, created under DOS 3.2.1. 
If your system is set up for 16-sector disks (DOS 3.3), first 
boot your BASICS disk or BRUN BOOT13 from the 
System Master Diskette, and then insert the SoftSide disk. 
A cover/menu program will run automatically. 

Tapes LOAD in the normal way. Advance the tape to the 
beginning of the lead-in tone; stop the tape; insert the plug 
into the EAR jack; type LOAD; start the tape; and press 
RETURN. Side two of the tape is a duplicate of side one, 
unless one or more Integer BASIC programs are included, 
in which case side two contains the Integer programs. 

ATARI® 

Disks do not contain DOS. SYS files, and are therefore 
not bootable by themselves. First boot a disk which contains 
any version of DOS, then insert the SoftSide disk and RUN 
"D:COVER". 

Tapes CLOAD in the normal way. If you have difficulty, 
try this procedure: 

(1) Type POKE 54018,54 and press RETURN. 

(2) Turn up the volume on your TV. 

(3) Type CLOAD and press RETURN once. 

(4) Press the PLAY button and listen. 

(5) When you hear a steady lead-in tone, press RETURN 
again. 

Side two of the tape is a duplicate of side one. 

TRS-80® 

Disks are available in Model I or Model III format. They 
contain the DOS PLUS operating system, and a cover pro- 
gram which automatically runs upon booting. Back issues 
prior to May, 1982, are available only in Model I format, 
and may be converted using the TRSDOS CONVERT util- 
ity on a two-drive Model III. Older back issues (with Model 
I TRSDOS) require you to enter BASIC and then type RUN 
"COVER". 

Tapes CLOAD in the normal way on Model I's, and at 
low speed (500 baud) on Model Ill's. The first program is a 
cover/menu program. Side two of the tape is a duplicate of 
side one. 

GENERAL NOTES ABOUT MAGNETIC MEDIA 

Our disks and tapes are duplicated by reliable, profes- 
sional duplication services; bad copies are now very rare. 
However, the trip through the mail does occasionally wreak 
havoc with sensitive magnetic media. If, after a reasonable 
number of tries and a careful check and cleaning of your 
equipment, you are not able to load a program from a tape 
or disk, please return it to us with an exact description of the 
problem. If we cannot duplicate the problem on our 
systems, we will advise you of that when we send the 
replacement. 

We use no copy-protection schemes on our media. We 
urge you to make a backup copy of every disk or tape as 
soon as you receive it (and at the same time resist the urge to 
give copies to friends). Our replacement policy does not ex- 
tend beyond 30 days. © 
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DR. 

LIVIN 



By Carl and Karen Russell, Ralph and Becky FuUerton 
Apple version by Carl Mueller, Translation 
Contest Winner 

Dr. Livingston is an adventure game requiring a 32K 
Apple with Applesoft and disk drive. It is included as a 
bonus program on this month's Apple Disk Version. 

Dr. Livingston is again in darkest Africa, but no 
message has been received from him for a great while. 
His rescue has consumed your thoughts for many weeks. 
You have gathered books and maps of the area where he 
was last seen. Determined to make a rescue attempt, but 
exhausted from your research, you are preparing for 
sleep.... 

So begins your African adventure. It will take some 
ingenuity even to make it to Africa — aHve. Can you 
survive long enough to rescue Dr. Livingston? Beasts 
and gems, puzzles and quicksand are all around. The 
jungle is ever-changing. Trails here today may be gone 
tomorrow, and yet here again the next day. Explore! Be 
persistent! 
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GSTON 



Your African adventure is about to begin. 

To explore the terrain and locate the good doctor, you 
need to enter two-word commands such as "GET 
BOOK" and "GO EAST". You may also move by 
entering just the initial letter of the direction: E, W, N, 
S, U, or D. The computer's vocabulary is limited, so if a 
word is not accepted, try a similar word or a new ap- 
proach. Here are five helpful one-word commands: 

HINT: Will give a clue in some circumstances. 

LOOK: Gives a description of your surroundings. 

I (Inventory): Gives a list of the objects in your 
possession. 

SCORE: Gives points accumulated and the number of 
turns taken. 

QUIT: Ends the adventure and gives the final score. 

Every object that you GET and return to a central 
location will improve your total score. However, in the 
long run the loss of an object may be to your advantage. 
If you obtain a score of 215, your adventure will 
automatically end. A bonus may then be added, 
boosting your total up to a possible 250. O 
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K-Byter 


Space Float 








An Applesoft K-Byter by Peter Wu, j 
Montgomery, WV 


40 NEXT 260 
150 X(42) = Y 1 5 


HCOLOR= 4: RQT= RO: DRAM 1 AT 
0X,OY 






Nearly everyone has played some 
form of lunar lander game. This 
variation has a unique "feel" to it 
which the SoftSide staff found very 
appealing — especially considering 
its compact code. 

The object of the game is to score 
as many points as possible by land- 
ing your spacecraft on flat terrain. 
The number of points you receive 
depends on the speed of your craft ' 
at landing. If you crash, the com- 
puter will beep and subtract 75 of 1 
your 500 units of fuel. Use Paddle 
to rotate your ship, and the paddle 
button to apply thrust. 


60 X = 10:Y = 10:YH = 0!XI1 = 1:D 270 HCOLOR= 3: ROT= R: DRflH 1 AT 

= - 16286 X,Y 
70 R = INT ( FDL (1) / 15) 280 T = INT iX / 7 + .5) + 1: IF 
180 IF PEEK (D) > 127 AND F > Y + 5 > X(T) THEN IF YH < 1 
THEN YM = YM - .22 + ABS ( THEN IF ABS (R - 8) < 2 THEN 
R - 8) / 50!XM = XM + (R - B IF X(T) = X(T + 1) AND X(T) 
) / 128:F = F - 1 = X(T - 1) THEN S = S + INT 
190 VTAB 23: PRINT INT (YH » 7) {( - YM + 1) t 100): BOTO 30 

00 YN = YM + .05: IF YH ) 10 THEN 290 IF Y + 3 > X(T) THEN F = F - 
YM = 10 75: PRINT CHR$ (7)|! GOTO 3 

10 Y = Y + YH:X = X + XM 

220 IF Y < 1 THEN YH = - YM:Y = 300 OX = XsOY = Y:RO = R: GOTO 17 
1 

:30 IF X < 3 THEN X = 277 310 FOR X = 768 TO 774: READ Y: POKE 








240 IF X > 277 THEN X = 3 


X,Y: NEXT : POKE 232,0: POKE 






J 


!50 HCOLOR= 3: ROT= R: DRAK 1 AT 


233,3: RETURN 






10 HOME ! VTAB 21: PRINT "SPEED" 


X,Y 320 


DATA 01,00,04,00,57,38,0 © 


1 




, "FUEL", "SCORE-! POKE 34,21 
20 HGR ! HCOLOR= 3: SCALE= i: ROT= 










^^1 






8:F = 500: DIH X(42): GOSUB 
310 
30 FDR P = 1 TO 1000: NEXT ! IF 
F < = THEN END 




^^IH 1^ 1 








1 '' ^'''.u 
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■> ' ■■•■ ' 

'If ' ■ 


.X . I 




40 HGR :Y = 24: HCOLOR= 3: HPLOT 




" -^-.^ 


JH 1 






0,Y % 5 

50 VTAB 23: PRINT INT (YM X 7)' 




* 


u.'^m 1 






",F" ",S 
40 X(0) = 120:X(1) = X(0) 




^^HKr' *l " ^ «<4|^| 






70 FOR X = 2 TO 41 










80 T = INT ( RND (1) > 6) - 2: IF 


\ A ™''*^ 


^^^HlT?;"' •'•'M^H 






T > = 1 THEN T = T + 1 


\ ^-A 


,|^H 






90 Y = Y + T 

100 IF Y > 31 THEN Y = 29 

110 IF Y < 21 THEN Y = 23 

120 HPLOT TO (X - 1) » 7 - 1,Y t 


VvV^ Vv 


"A^-^VV-/^ 




SPEED FUEL 


SCORE 




5 


« 452 


e 






130 X(X) = Y 1 5 
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by Steve Faiella 

Codebreaker is a color graphics 
game of logic for a 16K Apple with 
Applesoft. 

If you are the kind of person who 
enjoys games of logic and deduc- 
tion, then Codebreaker is for you. 
The description of the game is 
relatively simple. The computer 
generates a random "code", a se- 
quence of four colored pegs, which 
the player must try to guess. The 
colors available to the Apple for the 
code are red, yellow, orange, green, 
tan, and blue. There may be 
duplication of colors in a code, such 
as red/yellow/red/blue or 
orange/yellow/yellow/yellow. Us- 
ing the six colors, with duplication 
allowed, there are almost 1300 
possible combinations. 

Take heart, the Apple gives you 
clues along the way. Every time you 
input a guess, the Apple awards you 
"hint pegs" in the blue hint board 
to the left. For every color you guess 
which is the same COLOR as a peg 
in the computer's code, you get one 
white hint peg. For every color you 
guess which is the same COLOR 
AND in the same POSITION as a 



peg in the computer's code, you get 
one black hint peg. By observing 
your past guesses and the hint pegs 
awarded, you can arrive at the hid- 
den code. 

Using the Program 

After the title is displayed, you 
are given the option of seeing the in- 
structions. Following this the guess 
board and hint board are displayed. 
Before each round the Apple beeps 
once to signal that it is ready. You 
input your guess for the code, one 
peg at a time, by entering the first 
letter of the color names, which are 
listed at the left of the screen. If, 
during your input, you want to 
change your guess for that round, 
simply enter "E" instead of a color 
initial, and you will be prompted for 
peg #1 again. After all four peg col- 
ors have been entered, they are 
displayed and you are given one 
more chance to change your mind. 
The colors are then filled in on the 
graphics display, along with the ap- 
propriate hint pegs. If your guess is 
correct, you are given a score based 
on the number of rounds it took you 



to break the code, and a "luck fac- 
tor" based on the number of black 
and white pegs you were awarded. If 
you want to end the game at any 
time, just press "Q" during any peg 
input. 

Variables 

C(5): Color code generated by the 

computer, changed during 

execution. 

CA(7): Array of color numbers. 

CC$(13): Array of color names. 

G(4): Array of player's guesses 

converted to numbers. 

Gl(4): Array of player's guesses 

used for comparison. 

H(5): Array of colors (a copy of 

the C array which is not altered). 

I: Loop variable. 

IS$, PL$: Input strings. 

POK$: Used to hold data to poke 

in for the sound routine. 

PS: Used to choose random colors. 

PV(4): Array of black and white 

pegs. 

SC: Score. 

W$, WN, X, XI, X2, X2$, X3, 

X4, X5: Miscellaneous work 

variables. 

Y: Main game variable. 
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% APPLESOFT BASIC % 
% 'CODEBREAKER' t 
$ AUTHOR: STEVE FAIELLA ( 
< (C) 1982 SOFTSIDE $ 

Display color patch test. 

5 GOSUB 2000 

Print tlt\e and Instructions if 
desired. 

10 GOSUB 1020: HOWE 




WL^^M 


^^^^^ 






CD 
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Poke In the {Machine Language 
ampersand sound routine. 








.:rr '4W-.. II 




■ 


20 GOSUB 910 








initialize variables. 


190 


FOR Y = 1 TO 10 


360 X2 = X2 + 1: IF X2 < 5 THEN GOTO 




200 


VTAB 23: HTAB 15: PRINT "ROU 


250 


30 DIH CC»(13),H(5),C(5),CA(7) 




ND "iY;' "! 


370 VTAB 23: HTAB 15: FOR I = 1 TO 


40 CC$(1) = •RED":CC«(2) = "BLU": 


210 


FOR X = 1 TO 2000: NEXT X 


4: PRINT CC»(6(I));" ";: NEXT 


CC»(4) = "GRN'sCWIB) = "TAN 






I 




220 


& T80,100 




•;CC»(9) = "ORG^CMdS) = ' 






380 VTAB 23: HTAB 30: PRINT "-OK 


YEL" 


230 11 = 1 


(Y/N)";: GET H$ 


50 BOSUB 730 


240 


VTAB 24: HTAB 15; PRINT ■E=C 


390 IF Ht = "N" THEN VTAB 23: HTAB 


&0 FDR Xl = 1 TO 6: READ CA(Xl): 




ORRECT ERROR'; 


30: PRINT " ";: GOTO 


NEXT XI 


250 


VTAB 23: HTAB 15: PRINT "GUE 


230 


65 DATA 1,9,13,4,2,8 




SS FOR PEG ■;X2;' ";: GET X2 


400 IF H« < > "N" AND N« < > " 






% 


Y" THEN 370 


Set up the board graphics. 


270 


IF X2$ = 'E' THEN GOTO 230 


410 VTAB 23: HTAB 15: PRINT " 




280 


IF X2» = "T" THEN G(X2) = 8: 




70 GOSUB 800 




GOTO 350 


420 VTAB 24: HTAB 15: PRINT ■ 


80 HOHE : PRINT "T 6 B Y R' 


290 


IF X2$ = -O" THEN 6(X2) = 9: 


! 


90 PRINT "A R R L E E" 




GOTO 350 


430 GOSUB 460: GOSUB 550: GOSUB 


100 PRINT "N B N U L D"| 


300 


IF X2» = "G- THEN G(X2) = 4: 


730 






GOTO 350 


440 NEXT Y 


Generate a random color code. 


310 


IF X2» = 'B' THEN G(X2) = 2: 
GOTO 350 




120 HTAB 15: INVERSE : PRINT 'GE 


320 


IF X2* = "Y" THEN G(X2) = 13 


Plot the guessed colors on the 


NERATIN6 CODE..."-,: NORHAL 




; GOTO 350 


screen. 


130 FOR XI = 1 TO 4 








140 PS = ( INT ( RND (1) 1 6) + 1 


330 


IF X2« = "R" THEN 6(X2I = 1: 




) 




GOTO 350 


450 MN = 2: GOSUB 750 


150 C(X1) = CA(PS) 


335 


IF X2« = "Q" THEN TEXT : HONE 


460 I = 1 


160 H(Xl) = CA(PS) 




: END 


480 X5 = ((Y - 1) » 4) + 1 


170 NEXT XI 


340 


FOR X = 1 TO 50: i T200,5: NEXT 


490 FOR X3 = 24 TO 30 STEP 2 


180 FOR X = 250 TO 20 STEP - 2: 




X: GOTO 250 


500 COLOR= G(I) 


( TX,7: NEXT X 


350 


PRINT CC»(G(X2));: k T200,15 


510 PLOT X3,X5: i T( INT ( RND ( 






: FOR I = 1 TO 300: NEXT I: HTAB 


1) t 50) + 50), 10 


Main game loop. 




31: PRINT " "; 


520 I = I + 1 



SS C3. 
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530 NEXT X3 


790 TEXT : HONE : END 


920 FOR I = 1 TO 35: POKE I + 76 


540 RETURN 




7, VAL ( HID* (POK«,I t 4 - 




Subroutine to draw the board. 


3,1 1 4 - D); NEXT I 


Award black and white hint pegs. 




930 POK» = "170,160,001,132,002,1 




800 GR : COLOR= 15 


73,048,192,136,208,004,198,0 


550 XI = 1 


820 FOR X = 23 TO 31 ! VLIN 0,38 AT 


01,240,007,202,208,246,166,0 


560 FOR X = 1 TO 4 


X: NEXT 


00,208,239,165,003,133,001,1 


570 IF B(X) = C(X) THEN PV(Xl) = 


830 COLOR= 10: VLIN 0,38 AT 22: VLIN 


98,002,208,241,096" 


0:C(X) = 255:B(X) = 254:X1 = 


0,38 AT 32 


940 FOR I = 1 TO 33: POKE I + 80 


XI + 1:SC = SC + 10 


840 COLOR= 0: FOR X = 3 TO 36 STEP 


2, VAL ( HID* (POK*,I 1 4 - 


580 NEXT X 


4: HLIN 23,31 AT X: NEXT X 


3,1 » 4 - 1)): NEXT I 


590 FOR X = 1 TO 4 


850 COLOR= 7: FOR X = 12 TO 20: VLIN 


950 POKE 1013,76: POKE 1014,0: POKE 


600 FOR X2 = 1 TO 4 


0,38 AT X: NEXT X 


1015,3 


610 IF G(X) = C(X2) THEN PV(Xl) = 


860 COLOR= 0: FOR X = 3 TO 36 STEP 


960 POK* = ""!l = 


15:C(X2) = 255:G(X) = 254:X1 


4: HLIN 12,20 AT X: NEXT X 


970 RETURN 


= XI + 1:SC = SC + 1: SOTO 


870 COLOR= 0: FOR X = 1 TO 37 STEP 




630 
620 NEXT X2 


4: PLOT 24, X: PLOT 26, X: PLOT 
28, X: PLOT 30, X: NEXT X 


Play the winning or losing song. 


630 NEXT X 






640 I = 1 


^^^^^^^■^^^A^^V^^H 




650 X3 = ((Y - 1) 1 4) + 1 


H^^^^^^^^^B^H^^^Dj 


980 IF tIN = 1 THEN 1000 


660 FOR X4 = 13 TO 19 STEP 2 


I^H^I^^^^^^Hm^^^C 


990 FOR X = 1 TO 100: 4 T100,3! NEXT 


670 COLOR= PV(I): PLOT X4,X3 


'^BflB^^K^PHiHfl^l 


: BOTO 1010 


680 I = I + 1 


^^BW^fl^^vfilSMK^M 


1000 I T89,150! I T89,150: t. TIO 


690 IF PV(I) < > 7 THEN k T50, 


iV^B f^^^l^B ^mK^^B'^MJ 


1,75: k T108,75: k T108,150! 


10: FOR X5 = 1 TO 200; NEXT 




k T112,75: k T10B,75: k TIO 


X5 


• 


8,255 


700 NEXT X4 


1010 RETURN 


710 IF PV(l) = AND PV(2) = AND 
PV(3) = AND PV(4) = THEN 
MN = 1: 805UB 750 


Subroutine to print the instructions. 


720 RETURN 
Restore peg arrays. 


1020 TEXT : HOHE : VTAB 12: HTAB 
9: PRINT "C D E - B R E A 


730 FOR X3 = 1 TO 4:PV(X3) = 7:C 


• • • ■ 


K E R" 
1030 VTAB 23: HTAB 9: PRINT "NEE 




(X3) = H(X3):B(X3) = 61(X3): 
NEXT X3 
740 RETURN 

Win/lose and end-game routine. 


8B0 COLOR= 8: VLIN 32,37 AT 0: COLOR= 

9: VLIN 32,37 AT 2: C0LOR= 4 

: VLIN 32,37 AT 4: COL0R= 2: 

VLIN 32,37 AT 6: COLOR= 13: 

VLIN 32,37 AT 8: COLOR= 1: VLIN 


D INSTRUCTIONS (Y/N)';: GET 
IS*: IF IS* = "N" THEN RETURN 

1040 IF IS* < > "Y" THEN 1030 
1060 HOHE : PRINT "IN CODE BREAK 




32,37 AT 10 


ER, THE APPLE SETS UP A P 


750 IF UN = 2 THEN HOME : PRINT 


890 RETURN 


ATTERN USING FOUR COLORED 'P 


■SORRY, YOU LOSE' THE COLOR 




EGS' . IT IS UP TO YOU TO D 


S MERE:": PRINT CC$(H(1));' 




ETERHINE THE COLORS OF THE P 


■;CC$(H(2))|" "iCC»(H(3));" 


Subroutine to poke in the sound 
routine. 


EGS AND THE SEQUENCE IN »H1C ' 


■iCC»(H(4))! GOSUB 980! GOTO 


H THEY NERE CHOSEN. " 


780 




1070 PRINT : PRINT "YOU ARE GIVE 


760 SC = SC + ((10 - Y) 1 100): HONE 


910 POK$ = "201,084,208,015,032,1 


N HINTS ALONG THE HAY VIA 


! PRINT 'YOU HINIII YOUR SCO 


77,000,032,248,230,138,072,0 


THE HINT BOARD AT THE LEFT. 


RE HAS "jSC 


32,183,000,201,044,240,003,0 


FOR EVERY COLOR THAT YOU G 


770 GOSUB 9B0 


76,201,222,032,177,000,032,2 


UESS CORRECTLY, THE APPL 


780 INPUT "PLAY AGAIN (Y/N)?"iFL 


48,230,104,134,003,134,001,1 


E PLACES A HHITE PEG IN THE 


$: IF PL$ = "Y" THEN RUN 30 


33,000" 


HINT" 
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1080 PRINT "BOARD. FOR EVERY CO 
LQR YOU 6UES5 WHICH IS ALSO 
IN THE CORRECT SEQUENCE, YOU 

WILL GET A BLACK PEG.": PRINT 
: PRINT "FOR EXAHPLE, IF THE 
APPLE CHOOSES:" 

1090 INVERSE : HTAB 3: PRINT " 
RED YELLOW BLUE 6RE 
EN ": NORMAL 

1100 PRINT "AND YOUR GUESS IS:" 

1110 INVERSE : HTAB 3: PRINT " 
RED TAN ORANGE BLU 
E ": NORMAL 

1120 PRINT "YOU RECEIVE 1 BLACK 
PEG (FOR RED) AND 1 WHITE PE 
6 (FOR BLUE)." 

1130 VTAB 23: INPUT "HIT RETURN 
TO CONTINUE"; IS» 

1140 HOME : INVERSE : PRINT "THE 
ORDER OF THE WHITE AND BLAC 
K PEGS IS NOT IMPORTANT. 

": NORMAL 

1150 PRINT "THE APPLE ALWAYS GIV 



ES OUT BLACK PEGS FIRST; S 
0, IF YOU GET ONE BLACK AND 
TWO WHITE PEGS, IT MIGHT NOT 
BE THE FIRST COLOR IN YOU 
R GUESS WHICH IS IN THE 
PROPER SEQUENCE." 

1155 PRINT : PRINT "ANOTHER THIN 
G TO BE AWARE OF IS THAT 
THE CODE MAY CONTAIN DUPLICA 
TE COLORS. A VALID CODE COU 
LD BE:": PRINT : PRINT " 
TAN YELLOW TAN RED. 



1160 PRINT : PRINT "YOU ARE GIVE 
N TEN ROUNDS TO BREAK THE 
APPLE'S CODE. IF YOU GUESS I 
T IN TEN ROUNDS OR LESS, 
YOU WIN, AND ARE SCORED BASE 
D ON THE NUMBER OF BLACK AND 
WHITE PEGS YOU WERE AWARDE 
D, AND HOW MANY" 

1170 PRINT "ROUNDS IT TOOK YOU T 
BREAK THE CODE. ' 



Protect 

Your 

Investment 

With 

-5oftSi3e- 

Vinyl Binders 

See page 16 for ordering information. 




Protect your SoftSide back issues (combined editions) 
witti these sturdy binders. Covered with durable wood- 
grain vinyl, each SVa x 11 inch binder has an inside 
pocket and clear sleeve on the spine which you can label 
ifor easy Identification. Each binder holds 12 issues. 

8V2 X 1 1 $7.95 



5oft5ii3e 

6 5outh 5tr«8t Milford NH 03055 



60 



G 



1180 PRINT : INPUT "HIT RETURN T 
CONTINUE"; ISt: RETURN 



Subroutine to display color patch 
test. 



2000 GR : COLOR= 15: FOR K = 1 TO 
35: HLIN 0,39 AT K: MEIT X 

2010 COLOR= li FOR X = 9 TO 13: HLIN 
3,8 AT U NEXT X 

2020 COLOR= 9: FOR X = 9 TO 13: HLIN 
18,23 AT h NEXT X 

2030 COLOR= 13: FOR X = 9 TO 13: 
HLIN 33,38 AT Xi NEXT X 

2040 COLOR= 4: FOR X = 20 TO 248 
HLIN 3,8 AT X: NEXT X 

2050 COLQR= 2: FOR X = 20 TO 24: 
HLIN 18,23 AT Xt NEXT X 

2060 C0LOR= 8: FOR X = 20 TO 24: 
HLIN 33,38 AT X: NEXT X 

2080 HOME : PRINT "COLOR TEST PA 
TCH - ADJUST THE COLOR AND B 
RI6HTNESS ON YOUR SET SO YOU 
HAVE:" 

2090 PRINT TAB( 10) 'RED DRAN6E 
YELLOW' 

2100 PRINT TAB( 9) "GREEN BLUE 
TAN'; 

2200 HTAB 32; PRINT "ANY KEY";: GET 
Wt: RETURN 



APPLE SWAT TABLE FOR: 
CODEBREAKER 


LINES 


SWAT 
CODE 


LENGTH 


5 - 100 


CV 


263 


120 - 230 
240 - 350 


JK 
NR 


230 
347 


360 - 480 


FC 


296 


490 - 600 


YC 


191 


610 - 720 


NO 


249 


730 - 850 


HS 


403 


860 - 940 


VO 


533 


950 - 1070 


PM 


643 


1080 - 1150 


TO 


658 


1155 - 2020 


IE 


519 


2030 - 2200 


LS 


280 
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String-Defined Functions 
In Applesoft 



The normal way to define a func- 
tion in an Applesoft program is to 
use the DEF FN statement in a pro- 
gram line. If you want to plot a 
graph on the Hi-Res screen, for ex- 
ample, you might include a line such 
as the following in your program: 

100 DEF FN Y(X) = X -I- 10 * 
SIN(X) -I- 3.14159 

Then, instead of using the expres- 
sion "X + 10 * SIN (X) + 
3.14159" in calculating values, you 
can simply use the expression "FN 
Y(X)". 

Suppose, however, that you want 
a program which will be able to 
make use of any function that the 
user might want to specify. This 
would usually involve the somewhat 
awkward procedure of stopping ex- 
ecution of the program, having the 
user type in a new program hne in 
the proper format, and then re- 
starting the program. Although this 
does work, it's cumbersome and not 
very elegant. The routine described 
here can be incorporated into your 
own Applesoft program, and will 
allow your program to accept 
function-definition statements in 
the form of input strings, without 
having to stop execution and change 
program lines. Since the function 
definitions are stored in the same 
manner as normal strings, they can 
be preserved (in disk text files, for 
example) to form a library of func- 
tions accessible to any number of 
programs. 

Two forms of the routine are 



by Michael Prescott 

listed at the end of this introduction. 
The first consists of a commented 
Assembly Language listing of the 
code for those who wish to examine 
its operation more closely; the 
second consists of an Applesoft pro- 
gram which POKEs the Machine 
Language routine into memory and 
demonstrates its use. 

How the Routine Works 

The demonstration program will 
clear the screen, display a title, and 
then initialize the Machine 
Language routines in memory, 
starting at decimal address 768. 
Although this is a convenient loca- 
tion in many respects, you should be 
aware that the normal DOS entry 
point at 3D0 will be overwritten. 
(Consult page 144 of the DOS 
manual for alternate entry points.) 
When using the routine in your own 
programs, you may prefer to use a 
higher memory location, protected 
using appropriate LOMEM or 
HIMEM statements. 

Once the Machine Language 
routines have been initialized, they 
are ready to be used. These routines 
are intended to be used under de- 
ferred execution; that is, during the 
running of a program. They will 
work under immediate execution 
(i.e., typing commands on the 
keyboard), but doing this will cause 
strange side effects to occur. 

To start, we need a string, con- 
taining some combination of 
numeric and logical expressions, 
which defines the function desired. 
The rules of syntax are exactly the 



same as for Applesoft's DEF FN 
statement. You are not limited to 
using one variable, however. In the 
demo program, lines 120-130 
prompt you for an expression which 
uses two variables, X and Y. In 
response you might enter the expres- 
sion "X*2 -I- Y", for example. This 
string, although legible to you as a 
mathematical/logical expression, is 
not yet legible to the Apple as 
anything other than a normal string. 
This is where the String-Defined 
Function routine comes in. Once 
your expression is contained in 
memory, the statement "& DEF 
var$" in your program (see hne 140) 
will replace your ASCII string with 
a string of tokens recognized by the 
Apple. 

Once this has been done, the 
string will be in a form which is 
quite unintelligible to the user, since 
it has literally become a line of pro- 
gram text. However, it is possible to 
list the string. To do this type 
"&LIST var$" into your program, 
as in line 180 of the demo program. 
This will cause your string to be 
printed on the screen, in much the 
same way that a program line is 
hsted. 

The side effect of using "&DEF" 
and "&LIST" during immediate ex- 
ecution is that you will receive a 
SYNTAX ERROR message, 
although the routines are function- 
ing properly. This is because these 
routines use an area of memory 
which is also used by the Apple to 
get input text. There is no way to 
avoid this. 

Once we have a string that the 
Apple can recognize as a function, 
we can use it just as we would a FN 
statement, except that it must be in 
the form of a "USR (var$)" state- 
ment. The USR statement can be 
used in either immediate or deferred 
execution without any side effects. 
After prompting you for the values 
of X and Y in Hne 150, line 160 of 
the demo program shows the use of 
the USR statement to invoke the 
defined function, assigning the 
result to the variable Z. 

The only difference between the 
Apple's FN and the String-Defined 
Function is that no argument (i.e., 
the X of FN(X)) will be passed on to 
the function. Rather, the String- 
Defined Function will do its calcula- 
tions with the values already as- 



SoftSide 



(3. 



61 



>1PPLE 







2 


1 






t 






3 


t STRING-DEFINED FUNCTION PROB t 






4 


t 






t 






5 


t 












& 


CH 


EQU 


$24 








7 


REBL 


EQU 


$85 








B 


RE6H 


EQU 


(86 








9 


LOWTRL 


EQU 


$9B 








10 


LOHTRH 


EQU 


»9C 








11 


CHRSET 


EQU 


»B1 








12 


TXPTRL 


EQU 


$B8 








13 


TXPTRH 


EQU 


»B9 








14 


INBUFF 


EQU 


$200 








15 


ERROR 


EQU 


$D412 








16 


TKNIZE 


EQU 


$D56C 








17 


LISTPR 


EQU 


»D6FC 








18 


FRMNUN 


EQU 


»DD67 








19 


CHKSTR 


EQU 


$DD6C 








20 


SYNERR 


EQU 


»DEC9 








21 


PTRGET 


EQU 


$DFE3 








22 


GETSPA 


EQU 


»E452 








23 


NOVBTR 


EBU 


»E5E2 








24 


» 












25 




0R6 


1300 








26 


» 












27 


t km 


ROUTINE 










28 


t 








0300: 


C9 B8 


29 




CHP 


t$68 


IS IT 'DEF'? 


0302: 


DO 6B 


30 




BNE 


LIST 


NOPE, TRY 'LIST'. 


0304: 


20 Bl 00 


31 




JSR 


CHRGET 


YES, BOBBLE FIRST CHAR. 


0307: 


20 E3 DF 


32 




JSR 


PTRGET 


FIND VAR. AND SAVE ITS ADDR 


030A: 


20 6C DD 


33 




JSR 


CHKSTR 


HAKE SURE IT'S A STRING. 


030D: 


A5 B8 


34 




LDA 


TKPTRL 


FETCH TXTPTR 


030F: 


48 


35 




PHA 




AND SAVE IT 


0310: 


A5 B9 


36 




LDA 


TXPTRH 


FOR LATER. 


0312; 


48 


37 




PHA 






0313: 


fiO 02 


38 




LDY 


It02 




0315: 


Bl 83 


39 




LDA 


(«83),Y 


GET STRING ADDRHI 


0317: 


85 86 


40 




STA 


$86 


AND SAVE IT 


0319: 


88 


41 




DEY 






031fl: 


Bl 83 


42 




LDA 


($83). Y 


LIKEWISE STRING ADDRLQ... 


031C: 


85 85 


43 




STA 


REEL 




031E: 


88 


44 




DEY 






031F: 


Bl 83 


45 




LDA 


($83), Y 


...AND THE STRING LENGTH 


0321: 


A8 


46 
47 


t 


TAY 










48 


t COPY 


THE STRING TO THE 


INPUT BUFFER 






49 


t AND SET LAST CHARACTER TO 00 






50 


1 








0322: 


A9 00 


51 




LDA 


l$00 




0324: 


99 00 02 


52 




STA 


INBUFF, Y 




0327: 


88 


53 


LOOPl 


DEY 






0328: 


CO FF 


54 




CPY 


l$FF 


FINISHED? 


032fl: 


FO 09 


55 




BEQ 


TOKEN 


YES, GO ON 


032C: 


Bl 85 


56 




LDA 


!REGL),Y 


NO, GET NEXT CHAR. 



signed to the variables involved. 
String-Defined Functions may be 
nested indefinitely; but, when doing 
this, be certain that none of the 
functions call themselves. If a func- 
tion does call itself an OUT OF 
MEMORY error will result. 

The uses of this program range 
from interactive graphing applica- 
tions, to business programs where 
ease of changing a few formulas is 
important. The string functions are 
identical to normal Applesoft 
strings and may be saved on disk or 
tape; once defined, they need not be 
redefined. In this way a database of 
useful functions can be stored on 
disk and read in on command, or 
stored in string arrays. 

The program could also be used 
within another program which 
needs to change its own function 
parameters while running. This type 
of application could occur in the 
field of industrial control. In this 
case the normal Apple string func- 
tions could be used to redefine the 
string and thus the function. The 
program might also be used in ar- 
tificial intelligence applications. 

The String-Defined Functions 
routine depends heavily on the built- 
in routines within the Apple's 
ROM. First the ampersand (&) ef- 
fects a call to memory location 
$3F5. At this address is the instruc- 
tion to jump to $300 (as set up by 
the default address value). The A 
register is then loaded with the 
ASCII value of the character 
following "&". At $300 there is a 
command to check whether the A 
register contains the token for 
"DEF"; if not, then it jumps to 
$36F, where it checks for the 
"LIST" tok6n. By this method the 
proper subroutine is accessed. 

The USR function, as explained 
on page 45 of the Applesoft manual, 
takes the argument and puts its 
value into the Floating-point Ac- 
cumulator, FAC for short. Since we 
are dealing with strings, it will place 
a pointer in $A0-A1 to the descrip- 
tor of the string. The descriptor is 
discussed on page 137 of the Ap- 
plesoft manual; it is simply three 
bytes of memory, the first being the 
length of the string, and the second 
and third the actual pointer to the 
string. The string may lie anywhere 
in memory, even in program text 
such as A$ = "123". However, it's 
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better to have all the strings in one 


032E: 


99 00 02 


57 


STA 


INBUFFjY 




place; thus they normally build 


0331! 


DO F4 


58 


BNE 


LOOPl 




from HIMEM down. The String- 


0333: 


FO F2 


59 


BEQ 


LOOPl 




Defined Function routines take ad- 


0335: 


AO 04 


61 TOKEN 


LDY 


H04 


INIT VARIABLE FOR APPLE ROUTINES, 


vantage of the Apple's disregard for 
the location of the string, and so 


0337: 


84 13 


62 


STY 


tl3 




move it around to a place where the 


0339: 


A2 FF 


63 


LDX 


t<FF 


AIM TXTPTR 


Apple can be convinced that it is a 


033B: 


86 Be 


64 


STX 


TXPTRL 


AT START OF 


line of input to be interpreted. This 


033D: 


A9 01 


65 


LDA 


HOI 


INPUT BUFFER. 


is why signals do become crossed 


033F: 


85 B9 


66 


STA 


TXPTRH 




when using these functions during 


0341: 


20 6C D5 


67 


JSR 


TKNIZE 


TOKENIZE THE BUFFER. 


immediate execution, although they 
function properly. 

The following is a list of Apple 
ROM routines, and explanations of 


0344: 


AO 00 


68 


LDY 


ItOO 


NOH RECHECK LENGTH 


0346: 
0349: 


B9 00 02 
FO 03 


69 L00P2 
70 


LDA 
BEQ 


1NBUFF,Y 
HOVEIT 


OF STRING IN . 
BUFFER. 


their functions, that should be 


034B! 


C8 


71 


I NY 






helpful in explaining the program's 


034C: 


DO FS 


72 


BNE 


L00P2 




operation further. 


034E: 


CB 


73 HOVEIT 


I NY 








034F: 


98 


74 


TYA 




SAVE THE NEK 


$B8-B9: The text pointer of Ap- 


0350: 


48 


75 


PHA 




LENGTH COUNT. 


plesoft. It points to the next token 
of program text to be interpreted. 


0351: 
0354: 


20 52 E4 
98 


76 
77 


JSR 
TYA 


SETSPA 


HAKE RDOH FOR NEW STRING. 
NOH SAVE NEH 


$B1: A subroutine which causes the 


0355: 


AO 02 


78 


LDY 


t$02 


ADDRESS AND 


text pointer to be advanced to the 


0357: 


91 83 


79 


STA 


($83), Y 


LENGTH. 


next token. The ASCII value of that 


0359: 


88 


BO 


DEY 






token is transferred to the 


035 A: 


8A 


81 


TXA 






A-register. 


035B: 


91 83 


82 


STA 


(»83),Y 




$A-B-C: The entry point of the USR 


035D: 


88 


83 


DEY 

Ql A 






function to the monitor. From here 


035E: 


48 


84 


PLA 






the default values of this program 


035F: 


91 83 


85 


STA 


($83), Y 




would send it to $3C7. 


0361: 


AO 02 


86 


LDY 


l»02 


POINT TO STRING 




0363: 


A2 00 


87 


LDX 


t«00 


AND HOVE IT TO 


$A0-A1: The pointer to the descrip- 


0365: 


20 E2 E5 


88 


JSR 


HOVSTR 


ITS NEH LOCATION. 


tor of the string in USR(X). It is 


0368: 


68 


89 


PLA 




RESTORE TXTPTR... 


located within the FAC which oc- 














cupies $9D-A2. 


0369: 


85 B9 


90 


STA 


TXPTRH 






036B: 


68 


91 


PLA 






$DFE3 : A subroutine which finds a 


036C: 


85 B8 


92 


STA 


TXPTRL 




variable, which is pointed to by the 


036E: 


60 


93 


RTS 




...AND RETURN TO BASIC 


text pointer, in the variable list of 






94 t 








the Apple. If it finds it, then it puts 






95 ♦ tiLlST ROUTINE 




the address in $83-84 and in the X 






96 t 








and Y registers. If it does not find 












that variable, then it creates or 


036F: 


C9 BC 


97 LIST 


CNP 


ItBC 


IS IT 'LIST'? 


dimensions one if necessary, and 


0371: 


FO 03 


98 


BEQ 


LlSTl 


YES, 60 TO LIST ROUTINE. 


then initializes it. 


0373: 


4C C9 DE 


99 


JHP 


SYNERR 


NO, PRINT 'SYNTAX ERR'. 




0376: 


20 Bl 00 


100 LISTl 


JSR 


CHRGET 


GOBBLE FIRST CHAR. 


$DD6C: Checks to see if the last 


0379: 


20 E3 DF 


101 


JSR 


FTRGET 


FIND VAR. AND SAVE ITS ADDR. 


variable was a string. If not, you get 


037C: 


20 6C DD 


102 


JSR 


CHKSTR 


HAKE SURE IT'S A STRING, 


a TYPE MISMATCH error. 


037F: 


AO 02 


103 


LDY 


H02 






0381 


Bl 83 


104 


LDA 


(»83),Y 


GET STRING ADDRHI 


$83-84: Pointer to a variable found 


0383: 


85 86 


105 


STA 


$86 


AND SAVE IT. 


by the routine at $DFE3. 


0385 


88 


106 


DEY 








0386: 


Bl 83 


107 


LDA 


($83), Y 


LIKEWISE STRING ADDRLD... 


$200-2FF: The Apple input buffer. 


0388 


85 85 


108 


STA 


REGL 




All inputs are put and interpreted 
here. 


038A: 


88 


109 


DEY 








038B 


Bl 83 


110 


LDA 


($83). Y 


.,.AND THE STRING LENGTH 


$85-86: Used as a destination 


038D! 


C9 FC 


111 


CMP 


#$FC 


IS IT LONGER THAN 251 CHUR 7 


pointer. 


038F 


90 05 


112 


BCC 


FAKELN 


NO, OK, 



SoftSide 



(5 



63 



/1PPLE 



0391: 


A2 BO 


113 




LDX 


t$BO 


YES. LOAD 'TOO LONG' TOKEN 


$D56C: The main Apple interpreter 


0393: 


4C 12 D4 


114 
115 


t 


JHP 


ERROR 


AND CONPLAIN. 


routine. It will interpret and 
tokenize all characters in $200 until 






117 


t SET UP A PHONY PROGRAH LINE 


it finds a $0 which tells it to stop. 






118 


t IN THE 


INPUT BUFFER 










119 


1 








$E452: A routine which makes 












room for a new string in memory, 


0396: 


A8 


120 


FAKELN 


TAY 






which has its length in the A 


0397: 


A9 02 


121 




LDA 


«02 




register. The A register returns un- 


0399: 


8D 00 02 


122 




STA 


IN6UFF 


NEXT LINE ADDRLO 


changed, while the X and Y registers 


039C: 


8D 01 02 


123 




STA 


IN6UFF+1 


NEXT LINE ADDRHl 


and $71-72 contain the starting ad- 


039F: 


85 9C 


124 




STA 


LOKTRH 


STRING DESTHI IN LINE 


dress for the space for the string. 


03A1: 


A9 00 


125 




LDA 


1*00 






03A3: 


80 02 02 


126 




STA 


INBUFF+2 


SIHULATE END-OF-PROGRAH 


$E5E2: A routine that moves the 


03A6: 


BD 03 02 


127 




STA 


INBUFF+3 


AT NEXT LINE. 


strmg pomted to by the X and Y 
registers to the memory location 


03A9: 


85 9B 


128 




STA 


*9B 


STRING DESTLO IN LINE. 


pointed to by $71-72. 


03AB: 


99 04 02 


129 




STA 


IN6UFF+4,Y 6E SURE LAST CHAR IS 100. 




03AE: 


88 


130 


L00P3 


DEY 






$71-72: Memory starting address for 


03AF: 


CO FF 


131 




CPY 


i»FF 


COPY DONE? 


a new string; set up by the routine at 


03B1: 


FO 09 


132 




BE8 


READLN 


YES, EXIT. 


$E452. 


03B3: 


Bl 85 


133 




LDA 


(RE6L),Y 


NO, GET NEXT STRING CHAR 


$DEC9: Do a SYNTAX ERROR 


03B5: 


99 04 02 


134 




STA 


IN6UFF+4,Y AND MOVE IT TO 6UFFER. 


and stop. 


03B8: 


DO F4 


135 




BNE 


L00P3 


DO IT AGAIN. 




03BA: 


FO F2 


136 
137 


1 


6E8 


L00P3 




$D412: A routine which prints out 
an error message according to the 






138 


» NOW FEED APPLESOFT THE LINE 


error code value of the X-register. 






139 


t 








See page 136 of the Applesoft 
manual 


03BC: 


A9 04 


140 


READLN 


LDA 


t«04 


SET HTAB5 


AAAV4AA 1i41h«A ■ 


03BE: 


85 24 


141 




STA 


CH 




$9B-9C: Used as a destination 


03C0: 


AO 03 


142 




LDY 


«03 


HAKE APPLE SKIP 


pointer. 


03C2: 


84 85 


143 




STY 


RE6L 


LINE t. 




03C4: 


4C FC M 


144 




JUP 


LISTPR 


APPLESOFT 'LIST' ROUTINE. 


$D6FC: Address to a vector in the 


03C7: 


20 tC DD 


145 




JSR 


CHKSTR 


HAKE SURE IT'S A STRING. 


middle of the Apple LIST routine. 


03CA: 


A5 B8 


146 




LDA 


TJPTRL 


FETCH TXTPTR 


$DD67: A routine which evaluates 


03CC: 


48 


147 




PHA 




AND SAVE IT 


the formula pointed to by the text 


03CD: 


A5 B9 


148 




LDA 


TXPTRH 


FOR LATER. 


pointer and puts its result in the 


03CF: 


48 


149 




PHA 






FAC. The text pointer must be 


03D0: 


AO 02 


150 




LDY 


t$02 


STRING ADDRHl OFFSET. 


pointing at an expression that can be 


03D2: 


61 AO 


151 




LDA 


($AO),Y 


AIH TXTPTR 


evaluated, and not at a string. 


03D4: 


85 B9 


152 




STA 


TXPTRH 


AT STRING. 




03D6: 


88 


153 




DEY 








03D7: 


61 AO 


154 




LDA 


(»AO),Y 




Using String-Defined Functions in 


03D9: 


85 B8 


155 




STA 


TXPTRL 




Your Programs 


03DB: 


20 67 DD 


156 




JSR 


FRNNUN 


EVALUATE AND PUT RESULT IN FAC 




03DE: 


68 


157 




PLA 




RESTORE TXTPTR... 


There are basically two methods 


03DF: 


85 B9 


158 




STA 


TXPTRH 




for using the String-Defined Func- 


03E1- 


68 


159 




PLA 






tions routine in your own programs. 
The first is to poke it into memory 


03E2: 


85 B8 


160 




STA 


TXPTRL 




using a subroutine in your program 


03E4: 


60 


161 




RTS 




...AND RETURN TO BASIC 


like that in the demo program. The 
second is to set up the routine in 
memory just once, save it to tape or 


— END flSSENBLl 












disk, in its binary form, and then 
















load it directly into memory when 


xriTAi 


rnnnnp. a 












needed. The latter method is par- 


lUlflL cnnuno; v 












ticularly simple for disk users, and 
















has the advantage of saving pro- 


229 BYTES GENERATED THIS ASSEHBLY 






gram memory space. 
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Method 1: POKEing from Ap- 
plesoft. The subroutine in lines 
50000-50060 can simply be 
transplanted into your own pro- 
gram, and initialized with a GOSUB 
50000 somewhere near the begin- 
ning of your program. You are then 
free to use the &DEF, &LIST, and 
USR statements as described above. 

Method 2: Loading the routine as 
a binary file. After typing in and 
running lines 50000-50060, the 
Machine Language routine can be 
saved directly to disk. From the 
keyboard, type in BSAVE FUNC- 
TIONS,A768,L230 and the binary 
file will be created on your disk. 
Any Applesoft program can then 
simply BLOAD FUNCTIONS and 
do the few POKEs in line 50000 to 
set up the routine for use. Deleting 
lines 50010-50060, and substituting 
the line 

50010 PRINT CHR${4); "BLOAD 
FUNCTIONS": RETURN 

will do the trick. If you want the 
routine installed at a different ad- 
dress than 768, simply specify that 
in the BLOAD command (e.g., 
BLOAD FUNCTIONS, A32768) 
and change the value of AD in line 
50000. 

The binary file can also be saved 
to tape. Instead of using the DOS 
BSAVE command, "you would in- 
stead enter the monitor with a 
CALL -151, and then type in the 
monitor command 300.3E5W which 
will write the proper memory con- 
tents to tape. The routine can then 
be read into memory at any time 
from the same tape by using the 
monitor command 300.3E5R, and 
then doing the POKEs contained in 
line 50000 from your Applesoft 
program. 



» APPLESOFT BASIC % 

* '<-DEFINED FUNCTIONS DEHO' i 

» AUTHOR: HICHAEL PRESCOTT » 

i (C) 1982 SOFTSIDE $ 

100 TEKT ! HOHE : NORHAL : INVERSE 
: PRINT ■ttUltUtttUUtltt 
UtttttnUUUttttttI' TA6( 
40)'tt' TAB( 10)"$ DEFINED F 



UNCTIONS' TAB( 40)"»r TAB( 
40)°lf TAB( 14)"APPLE ]" CHRI 
(91) TAB( 40)"tl" TAB( 40)'« 

tttiitttitttttttuttttutui 

tttttttUttt': NDRHAL 



Initialize the Machine Language 
routine. 



110 60SUB 50000 



Input a string containing a 
mathematical/logical expression In 
terms of two variables. (There could 
be any desired number of variables.) 



120 PRINT "TYPE IN A HATHEHATICA 
L/LOGICAL EKPRES- SION IN T 
ERNS OF TMO VARIABLES X AND 
Y, USING NORMAL APPLESOFT SY 
NTAX:" 

130 PRINT : INPUT F» 



Call the Machine Language routine 
to convert the Input string Into a 
form usable by Applesoft as a 
defined function. 



140 i DEF F» 

Input values for the variables. 

150 PRINT : PRINT "NON ENTER VAL 
UES FOR X AND Yi ";: INPUT X 

Invoke the defined function using a 
USR call. 

160 Z = USR (F$) 



Print out the results, listing the 
defined function Itself with the 
&LIST statement. 



170 PRINT : PRINT "FOR X = "fX;" 
AND Y = ";Y;', THE FUNCTION 

": PRINT 
180 k LIST F$ 
190 PRINT : PRINT "HAS A VALUE 

F ";Z 

Pause and then go back for another 
function. 

SoftSide 



im FOR I = 1 TO 3000! NEXT h PRINT 
: PRINT : GOTO 120 

Subroutine to POKE the Machine 
Language routine Into memory, 
starting at address 768 (decimal). 
The starting address can be 
changed to another convenient 
location simply by changing the 
value of the variable AD In line 
50000. This subroutine can be 
transplanted to another program, 
and need be executed only once, 
before using the &DEF or &LIST or 
USR statements. 

50000 AD = 7685 POKE 1013,76: POKE 
1014, AD - 256 I INT (AD / 2 
56): POKE 1015, AD / 256: POKE 
10,76: POKE 11, (AD + 199) - 
256 % INT ((AD + 199) / 256 
): POKE 12, (AD + 199) / 256 

50010 FOR X = 1 TO 5: READ A»: FOR 
Y = 1 TO LEN (A») STEP 2: POKE 
AD, ASC ( H1D» (Ai,Y,l)) - 4 
8 + 10 t ( ASC ( NID» (A$,Y + 
1,1)1 - 48):AD = AD + 1: NEXT 
! NEXT : RETURN 

50020 DATA "lD4B8D7!237A0p237F3F 
238: IF5J4B27585B2709207A1=3= 
4=6=7A1=3=3=6=7A1=S39»003?00 
206=2C5I0H907A3=3?00208D" 

50030 DATA "4H0H2HO8402=9128514= 
4B9S103=5B238:3E08005B00200H 
300D8D8HOD2?2723288F2?08205> 
1=6=8=5)1=6=4: 5>l=0J202a' 

50040 DATA "00236F9F4:3=5B4;3=4B 
691 D8B0H3047 1 D2F237A00237F3F 
238:1F0J207A1=3=4=6=7A1=3=3= 
6=7A1=1D2I4>50286A67812E" 

50050 DATA "8899201 >00201>10203= 
679800 1 >2020 1 >30203=5?3?4020 
6=2C5IOH907A3=3?40208D4HOH2H 
98403=6308302=3=672I4E23" 

50060 DATA "8!lF584B27585B270820 
7A083=5B6=7A083=4B233: 1F4: 3= 
5B4:3=4B690A" 



APPLE SWAT TABLE FOR: 
STRING-DEFINED 
FUNCTIONS DEMO 


LINES 


SWAT 
CODE 


LENGTH 


100 - 200 


ZE 


502 


50000 - 50040 


YL 


522 


50050 - 50060 


ss 


176 



d 
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This is the first in a series of ar- 
ticles deaHng with the Apple Disk II 
system running under DOS 3.3, the 
Apple IPs current Disk Operating 
System. The series is intended to 
help you gain a deeper understand- 
ing of how DOS 3.3 works, and to 
improve your skills in using the 
system. Many of the techniques we 
will discuss will be easily adaptable 
to systems operating under DOS 
3.2, but it is preferable (and not just 
for the purposes of this series) that 
you upgrade your DOS 3.2 system 
to DOS 3.3 if at all possible. 

The series will not be an elemen- 
tary tutorial intended to replace the 
basic information presented in the 
DOS manual. Instead, we will 
assume that you've already read 
enough of the manual to be familiar 
with the fundamentals of DOS. Us- 
ing the manual frequently as a 
reference, we'll expand on the 
material presented there, and look 
at specific examples of the DOS 
features and commands in use. 

Nor will the series be a highly 
technical study, which would re- 
quire a background in Machine 
Language programming to under- 
stand. BASIC is the common 
ground for SoftSide readers, and 
we'll stick to Applesoft throughout 
the series, with the assumption that 
your Apple has Applesoft in ROM. 
If your Apple has Integer BASIC in 
ROM, or you use a RAM-based Ap- 
plesoft BASIC, you should still be 
able to adapt the information we 
present without much difficulty. 

Each of the articles in the series 
will include Applesoft programs 
which illustrate and use the prin- 
ciples being discussed. This should 
allow you not only to make better 
use of DOS, but also to develop a 
respectable library of utilities you'll 
use over and over again. We will 
avoid using Machine Language 
routines whenever possible, in order 
to make the programs and principles 
understandable to all readers. Those 
who are fluent in Machine 
Language may wish to replace parts 
of our programs with their own 
routines for the sake of execution 
speed. Several excellent references 
are available if you choose to take 
this more technical approach. 

Because of the nature of the pro- 
cedures we'll be discussing, I'm 
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Part One 

by Carey W. Bradley 



obliged to give you the following 
warning, which I'll repeat 
throughout the series, at the risk of 
being redundant: When typing, sav- 
ing, and (especially) testing the pro- 
grams presented in this series, 
PLEASE use a new disk, or one that 
you have backed up. For all its 
power to perform apparent 
miracles, DOS also has the power to 
destroy, and an innocent 
typographical error could easily 
clobber valuable files on your disk. I 
recommend that you transfer your 
versions of my programs to a 
"good" disk only after you have 
thoroughly tested them on an expen- 
dable disk and are absolutely certain 
they do what they're intended to do. 

Since this series is about the Ap- 
ple disk system, you may find it odd 
that I have chosen to devote this 
first article not to drives or tracks or 
sectors, but rather to the Apple's 
memory — specifically, RAM. It is 
easy for most beginning program- 
mers to just program away, without 
much regard for what is happening 
where inside the Apple. Even in pro- 
grams using DOS commands this 
can often be done without unpleas- 
ant consequences, but if you do 
much of this type of programming, 
you'll come to realize how impor- 
tant it is to be aware of your pro- 
gram's use of RAM space. 

Such a need could arise when you 
write programs large enough to tax 
your Apple's memory space limits, 
or when you use features such as 
high-resolution graphics, which re- 
quire certain areas of memory to be 
reserved for special purposes. In 
fact, every time you boot DOS 
you're using a feature (DOS itself) 
which selfishly sets aside 10.5 of 
your K's for its own use. (Actually, 
this set-aside can be increased or 
decreased to some extent, but that's 



for another article). Knowing how 
your Apple is using its RAM not on- 
ly allows for more efficient use of 
that space; it also helps to prevent or 
correct the inadvertent use of the 
same section of RAM for two or 
more different purposes. Such 
overlapping can give rise to assorted 
surprises, ranging from lost data 
and programs, to commands that 
don't work, to other things even too 
horrible to imagine. 

Equally important is the fact that 
judicious use of RAM makes your 
programs more valuable. Suppose, 
for example, that you wrote a pro- 
gram on a 48K Apple which leaves 
more than 16384 (16K) bytes of 
RAM unused. If you were able to 
arrange it so that the program 
forced the unused memory to be the 
highest numbered RAM addresses, 
that program would probably ex- 
ecute just as well on an Apple with 
as little as 32K of RAM (there are 
exceptions). If so, when you sub- 
mitted the program to your favorite 
software magazine it could be used 
by a greater number of Apple 
owners than if you had ignored 
RAM allocation altogether. 

It isn't difficult to figure out how 
much RAM your program requires. 
It also isn't usually necessary that 
you figure it down to the exact byte, 
especially since things Uke string 
variables can cause the amount of 
RAM your program needs to fluc- 
tuate. If you go in for rules of 
thumb, try estimating your pro- 
gram's RAM requirements a little 
on the high side. 

To start, determine the number of 
the highest RAM address available 
to your program. With DOS loaded 
at the top end of RAM, this address 
will range from 5632 on a 16K Ap- 
ple to 38400 (also expressed as 
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-27136, which is 38400 minus 65536) 
on a 48K system. The exact values 
for all configurations are in Appen- 
dix D of the DOS manual. Then 
subtract 2048 (if Applesoft is in 
ROM), to account for the addresses 
0-2048, which are mostly reserved 
for system use. The result is the total 
number of bytes at your disposal. 
Your BASIC program will be stored 
beginning in location 2049, and will 
reach upward in RAM. 

The length of the program itself is 
easily found, because the address of 
its end is automatically stored in 
memory locations 175-176 when you 
load or enter it. With the program in 
memory, type 

PRINT PEEK(176) * 256 + 
PEEK(175) - 2049 

and your Apple will tell you how 
many bytes long your program is. If 
this number is greater than 6142, the 
program reaches into the part of 
RAM reserved for high-resolution 
graphics page 1. If you try to use 
HGR in the program you'll find that 
the end of the program gets lopped 
off. You can still use HGR2 if your 
program length doesn't exceed 
14334. 

You may prefer to simply find the 
ending address of your program, by 
omitting the subtraction of 2049 
from the statement shown above. 
You'll find it helpful to do this if 
your Applesoft is not in ROM; the 
above procedure assumes it is. The 
address where your program begins 
can, in any event, be found by 
typing 

PRINT PEEK(104) * 256 -I- 
PEEK(103) 

All that remains is to determine 
how much space is needed for the 
program's variables, and where that 
space will be taken. Appendix D of 
the Applesoft Reference Manual 
tells you how many bytes are needed 
for each of the various types of 
variables. If the program uses Hi- 
Res graphics, you'll have to take in- 
to account the fact that variable 
names and numeric values are 
stored immediately after the end of 
your program (unless you have 
changed LOMEM), while strings are 
stored beginning at HIMEM and 



reaching downward. Again, your 
Applesoft manual will show you 
how to adjust HIMEM and 
LOMEM to keep these ranges from 
running into graphics areas or other 
important RAM segments you may 
have allocated. 

This month's program is one 
designed to set up the disks you use 
to hold the Applesoft programs you 
glean from the pages of SoftSide. 
You can use the program to INIT a 
new disk you'll be using for this pur- 
pose (see DOS manual), or to 
replace the greeting, or HELLO, 
program already on such a disk 
(make sure that you store it under 
exactly the same name as the file 
you're replacing). The idea of the 
program is not totally original, 
although the program itself is. It is a 
simple menu from which you can 
choose any program you wish to 
run, or exit to BASIC if you desire. 
Because the program is so special- 
ized, it can include some unique 
features. 

The program locates Applesoft 
programs in the disk catalog, and ig- 
nores all other types of files. To do 
this, it bypasses the DOS 
CATALOG command, and reads 
directly from the portion of the disk 
that contains the catalog informa- 
tion. This requires that you call the 
RWTS subroutine, which you'll 
have to accept on faith for now (or 
read that section of the DOS manual 
on your own). We'll discuss RWTS 
in more detail next time. 

By avoiding the CATALOG com- 
mand, you also avoid one of the 
problems of using it to generate a 
menu; a problem which arises when 
you have a large number of pro- 
grams on one disk. CATALOG lists 
only 18 files, then awaits a keypress 
before continuing, at which point 
the first files listed may become 
unavailable to your menu, because 
they scroll off the screen as new files 
appear. This program reads the en- 
tire catalog into RAM, from there 
you can view the names of all Ap- 
plesoft program files, a screenful at 
a time. You can page through this 
listing as many times as you like, 
without accessing the disk again. 
The upper limit on the number of 
files this program will handle is 105, 
far more than you'll probably ever 
have on a single disk. But DOS 3.3 

SoftSide 
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Eledtronics 



sommRE 



APPLE . ATARI • TRS80 • !BM 

A full line of software for business, games 
and education Up tO 35% OfF! 



MUSE 


lUS 


VISICORP 


STONEWARE 


ONUNE 


S/NERGISTIC 


EDCl-WARE 


HAYDEN 


HOWARD 


AMD AWSY MORE 



HARDimRE 



AMDEK . HAYES • MICROSOFT 

List Our Price 
32K RAM card $293.00 $205.00 
Video Term $345.00 $279.00 
Lazer Products 20% off 



DISKS 



Maxell BoxoflO,5!/4",SS-DD 
Verbatim Boxof 10, 5V4", SS-DD 



$35.00 
$29.00 



MONITORS 



LE MONITORS 


Ust 


Our Price 


9" Green 


$189.00 


$159.00 


12" Green 


$199.00 


$169.00 


ZENITH 






12" Green 


$179.00 


$129.00 


Plus a full line of AMDEK Monitors 


PRINTERS 


PAPER TIGER 


Ust 


Our Price 


460G 


$1,094.00 


$950.00 


560G 


$1,394.00 


$1,250.00 


EPSON 






MX 70 


$449.00 


$395.00 


MX SOFT 


$745.00 


$595.00 


MXIOOFT 


$945.00 


$795.00 



CALL FOR THIS Af OJYTHS SPECIAL ! 

1-800-835-2246 EXT. 211 

OR 

702-452-5589 



5130 East Charleston Blvd. 

Suite 5SS 
Las Vegas. Nevada 89 122 



Phone orders welcome. Mail orders may send 
charge card number (include expiration date), 
cashiers check, money order or personal check 
(allow ten business days for personal or com- 
pany checks to clear). Add S3.00 for shipping, 
handling and insurance. Nevada residents add 
5.75% sales tax. Please include phone number. 
All equipment is in factory cartons with manu- 
facturers warranty. Equipment subject to price 
change and availability. Call or write for price list. 
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allocates space for that many files in 
its catalog, so this program will han- 
dle any conceivable situation. 

The program provides a good il- 
lustration of RAM allocation. It is 
written to run on the smallest RAM 
configuration it can, which is 20K. 
In the DOS manual it says that the 
highest RAM location available on a 
20K Apple, without wandering into 
DOS territory, is 9728. If everything 
in the program is done below this 
address, DOS remains intact and 
operational as long as the Apple 
running the program has 20K or 
more of RAM. I need 3840 bytes to 
store the catalog information, so I 
lower HIMEM to 9728-3840 = 
5888. When I subtract out my 2048 
"system" bytes, I am left with 3840 
bytes for program and variable 
storage. If you enter the program 
exactly as I have, you can determine 
its length to be 1112 bytes. The 
variables use less than 350 bytes. 
The data for the RWTS subroutine 
are tuciced away in a handy area 
below the RAM space I'm consider- 
ing, so they don't count in my 
calculations. This leaves me nearly 
2400 unused bytes; a good margin, 
but far less than the 4096 I'd need to 



be able to run the program as it is 
currently written with only 16K of 
RAM. 

The operation of the program is 
described step by step in the 
documentation which is spliced into 
the listing. The variables used are 
also listed and described. If you like 
the way the program works, you can 
return to it when you're finished 
running another program. Just 
locate the line at which the program 
ends, and insert 

PRINT CHR$(4);"RUN HELLO" 

Or, if your program has already 
defined the variable D$ to be 
CTRL-D, 

PRINT D$;"RUN HELLO" 

It is a good programming practice to 
reserve the variable name D$ for 
this purpose, in ALL programs. 
There are plenty of other names you 
can use for other things. After you 
revise the program, be sure to save it 
back to the disk again in its new 
form. 

You can change all of the pro- 
grams on the disk to do this, even if 



some are the kind that you have to 
end yourself by hitting CTRL-C. In 
these programs, an ONERR GOTO 
statement can be used to branch to 
one of the above statements when 
you interrupt the program. 

In future articles, we'll discuss the 
uses of DOS commands inside and 
outside programs, what happens 
when you use them, what happens 
when you misuse them, and how to 
use them better. I've got plenty of 
my own ideas on what we should 
cover, but I'd be happy to interrupt 
my sequence to deal with topics you 
suggest. Please let me hear from 
you, c/o SoftSide. 

Next time, we'll get out of our 
RAM and back on track — and sec- 
tor. We'll investigate the ways in 
which DOS stores information on 
the disk, and take a closer look at 
the RWTS subroutine and how you 
can use it to do some useful tricks, 
even if you're not familiar with 
Machine Language. In subsequent 
articles, we'll make frequent use of 
the RWTS subroutine, both in 
homebrewed disk utilities and as a 
microscope for examining what 
really happens when we store infor- 
mation on a floppy disk using Apple 
DOS. 



Catalog Program Variables 



I, J, L: Counters and loop 

variables. 

A%(*): Array used to store the 

starting RAM addresses of the 

names of Applesoft programs on 

the disk. 

BF: Location of the byte used to 

determine where the information 

being read from disk will be stored 

in RAM. 

D$: The conventional variable for 

CTRL-D, used to prefix DOS 

commands. 

INS: Your input. 

N$: The name of the program you 

have selected to run. 

NF: Counter for the number of 

Applesoft programs on the disk. 

RW: Starting address of the 

RWTS soubroutine data. 

S: Address of the byte which tells 

RWTS which sector to read. (All 

data are read from the same track, 

which is already included in the 

DATA statement). 



68 



G 



SoftSide 



APPLE 





190 IF PEEK (J) » 255 THEM 220 


i$$$t($(tM$t»$(»t((($(»«$it($ 


200 IF PEEK (J + 2) < > 2 AND 


♦ APPLESOFT BASIC % 


PEEK (J + 2) < > 130 THEN 


i 'DISKOURSE HELLO PROERAN' $ 


220 


% AUTHOR: CAREY BRADLEY ( 


210 NF = NF + 1:AX(NF) = J + 3 


$ (C) 1982 SOFTSIDE « 


220 NEH J,I:J = 1 


$$<$t($tt$«i($($$$$($)$tmt«( 






Display the program names and 




prompt the user to select the action 


Save the original value of HIMEM In 


to be taken. Lines 320 and 330 


two unused zero-page memory 


provide the two ways to end the 


locations. (This value Is restored 


program — by exiting to BASIC or 


iMfore exiting the program, through 


by running one of the programs. 


either line 320 or line 360. 


Note that both of these lines call 




the subroutine in line 370 before 




proceeding, which undoes what line 




100 did, giving you back the amount 


100 POKE 254, PEEK (115): POKE 2 


of memory you had available before 


55, PEEK (Hi) 


running the program. 


Set HIMEM, as described In the 


230 HOHE : INVERSE : PRINT 'DISK 


article, and Initialize a few things. 


VOLUME •; PEEK (791): PRINT 




: IF J ) NF THEN J = 1 




240 PRINT "APPLESOFT PROGRAHS FR 


110 HINEN: 5888;BF = 786:RH = 76 


OH 'SOFTSIDE':": NORMAL : PRINT 


8:S = 782 


sL = 1 


120 TEH ! HOHE :D» = CHRi (4): 


250 IF J < = NF THEN PRINT "<' 


SIN AKIOS) 


iJ;'>",- TAB( 7)| 




260 FOR I = AKJ) TO AX(J) + 29: 




PRINT CHRi ( PEEK (I))|: NEH 


Read the data required by the RWTS 


: PRINT 


subroutine. 






270 L = L + 1:J = J + 1: IF L > 1 




6 OR J > NF THEN 290 




280 60Ta250 


130 FOR I = RUTO RH + 29: READ 


290 VTAB 22: INVERSE : PRINT "EN 


Ji POKE I, J: NEU 


TER PR06RAH NUMBER TO RUN" 




300 IF NF > 16 THEN PRINT "ENTE 




R 'H' TO CONTINUE LISTING" 


Use the RWTS subroutine to read 




the disk catalog into the 3840 bytes 


310 INPUT "OR HIT <RETURN> TO EX 


of RAM reserved for it. 


IT TO BASIC: ";IN«! NORMAL 




320 IF IN» = '■ THEN 60SUB 370: 




END 


140 FOR I = 15 TO 1 STEP - 1 


330 IF IN» = "M" THEN 230 


150 POKE S,I: POKE BF,38 - I 


340 I = VAL (IN«); IF I < 1 OR I 


160 CALL RH: NEXT 


> NF THEN 290 




350 FOR J = AZ(I) TO AZ(I) + 29: 




N( = Nt + CHRt ( PEEK (J)): 


Search the catalog data for 


NEXT 


Applesoft programs, and remember 
the memory address at which each 


360 GOSUB 370: PRINT D»i'RUN"!N$ 


of these program names begins. 






370 POKE 115, PEEK (254): POKE 1 




16, PEEK (255): RETURN 


170 FOR I = 5900 TO 9484 STEP 25 


380 DATA 169,3,160,9,32,217,3,9 


k 


6,0,1,96,1,0,17,0,26,3,1,0,0 


180 FOR J = I TO I + 210 STEP 35 


,0,1,0,0,96,1,0,1,239,216 © 
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Swashbuckler 



A review by Alan J. Zett 



by Paul Stephenson. From 
DATAMOST, Inc., 9748 Cozycroft 
Ave., Chatsworth, CA 91311, 
(213) 709-1202. System re- 
quirements: 48K APPLE II/II + 
and disk drive with 16-sector con- 
troller. Suggested retail price: 
$34.95 

When was the last time you ven- 
tured into the realm of sword- 
fighters, pirates, and cutthroats? If 
you're a fan of the DUNGEONS & 
DRAGONS^^ games, chances are 
that you do so on a regular basis. Or 
perhaps you are one of the many 
thousands of people who enjoy the 
Science Fiction/Fantasy or Sword 
and Sorcery book genre. Many 
times in my youth I spent hours in 
high adventure, fighting imaginary 
battles with monsters, demons, and 
sorcerers, courtesy of the creative 
genius of authors such as Robert E. 
Howard and Edgar Rice Burroughs; 
but, in all my conquests, I never 
once had the chance to actually par- 
ticipate in a real swordfight. 

Now DATAMOST has come out 
with their exciting program called 
Swashbuckler. Your goal is to 
escape from the hold of the pirate 
ship where you are being held cap- 
tive, or to take as many of your cap- 
tors as possible down with you. All 
you are armed with is a sword and 
the determination to make it to 
freedom alive. Above you Ues a ship 
full of professional fighters, each 
with a different taste in weapons 
and each with a personal fighting 
style. 

Both you and your opponents 
(controlled by the computer) must 
skillfully dodge, thrust, and parry to 
stay alive. Points are scored ac- 
cording to the number of opponents 
you have slain. You are allowed 
three deaths, but if you make it to 
25 points you will gain an extra life. 

The fighting is fast-paced, 
realistic, and beautifully drawn. 
When you first start out, you are 
given one opponent. After a short 
while you are given two, one on 
either side. When you've gained 
enough experience to overcome two 



opponents, the computer starts 
making things harder. First your op- 
ponents get tougher to beat. They 
gradually get quicker with their 
swordplay, and gain an incredible 
knack for offensive/defensive 
maneuvering. To make things even 
more difficult, when enough time 
has passed, your opponents change. 
Since each fighter has a personal 
technique, different combinations 
of opponents can make the game a 
never-ending struggle which tests 
your fighting skills to their utmost. 
Fighters range in skill and style 
from a boisterous gargantuan with a 




club, to pirates, to soldiers in full 
plate armor. Each fighter uses a dif- 
ferent weapon. There are knives and 
axes, clubs, cutlasses, javelins, 
pikes, and broadswords. As if this 
weren't enough, certain obstacles 
such as scurrying rats and snakes 
will plague you from time to time. 
Occasionally a dead body will block 
your retreat. If you make it to the 
big time, the obstacles become more 
difficult. Giant spiders and scor- 
pions attack you. If you're bitten by 
a rat, you lose the ability to thrust; 
but if a scorpion bites — you're 
dead! 

By the time you've reached the 
main deck, you have a multitude of 
little beasties snapping at your feet 



while the battle rages all around 
you. The'scene is something straight 
out of a Conan novel; your back is 
against the wall and you are fighting 
desperately to stay alive. 

All this action would be a bit 
overwhelming if it were not so well 
presented. The characters are all 
sharp and clear. The detail and 
animation is an achievement in 
itself. To back up the splendid detail 
of the fighters, a superior full-page 
display was needed. The author did 
not disappoint me here either. The 
display consists of a series of 
beautifully drawn, full color, Hi- 
Res pictures that serve as the 
backdrop for the scenarios. As you 
reach different levels of the ship, the 
picture changes to reflect your new 
location. This helps tremendously in 
setting the mood for the game. A 
small area is cleared in the middle of 
the screen for the fighters. It allows 
an area for you and your opponents 
to move around in. 

Fighting is controlled from the 
keyboard. There are commands for 
facing left or right, advancing or 
retreating, on guard, parry, high 
parry, low parry, and thrust. The 
sword movement keys are grouped 
together in a diamond shape on the 
right side of the keyboard and have 
a natural pattern that is at once 
logical and easy to use. The move- 
ment keys are set in a Une on the left 
side and likewise are in a very 
natural position for ease of use. 
Before long you'll be using the 
keyboard as if you were a master 
swordfighter. 

As you can see from my en- 
thusiasm, I find Swashbuckler to be 
an extremely addicting, well con- 
ceived program devoid of bugs and 
annoyances. Swashbuckler is an ex- 
cellent, original Machine Language 
game, a welcome addition to the 
commercial software market. I 
highly recommend this program to 
the adventure-seeker in all of us. © 



"DUNGEONS & DRAGONS^^ is a 
trademark owned by and used under license 
from TSR Hobbies, Inc." 
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Apple-Aids 



A review by Carey W. Bradley 



By Allen Wyatt (Advanced 
Operating Systems). System re- 
quirements: 48K Apple II or Apple 
II Plus with Applesoft in ROM or 
language card, one or more disk 
drives, DOS 3.2 or 3.3. Suggested 
retail price: Disk and manual, 
$49.95 



The nice thing about Apple DOS 
is that anyone who can talk to an 
Apple in BASIC can easily learn to 
use it. With a minimum of effort, 
the fundamentals of SAVEing, 
LOADing, RUNning, LOCKing, 
DELETEing, and so on, can be 
quickly mastered. With a little more 
effort you can effectively use se- 
quential and random access text 
files in your programs. 

But as your programming efforts 
become more ambitious, it is in- 
evitable that you'll need to know 
something about what's actually go- 
ing on when your DOS commands 
are executed. Apple-Aids is a handy 
package of twelve utilities designed 
to give you more intimate access to 
the data on your disks than the 
regular DOS commands allow. With 
these programs you can examine 
and manipulate any of the informa- 
tion on your normally formatted 
DOS 3.2 or 3.3 disks. 

I was impressed by the combina- 
tion of power and simplicity I found 
throughout the package. Everything 
in it is straightforward and (forgive 
the expression) polished. The screen 
displays are informative and easy to 
understand. Even the system's main 
menu is cleverly conceived, and I 
must confess that I spent some time 
playing around with it before 1 even 
tried running any of the utilities. 

If documentation is to be judged 
on the basis of both form and con- 
tent, as I believe it should be, Apple- 
Aids makes the grade on both 
counts. Packaged in a sturdy, stand- 
up, loose-leaf binder, the manual is 
typeset, printed on high-quality 
paper, and is well illustrated. The 



text is well-organized and indexed. 
It is clear, complete and concise, 
with no fluff. Use of the Apple-Aids 
package requires some knowledge 
of the way DOS stores information 
on the disk. If you lack this 
knowledge; fear not, the manual in- 
cludes all of the basic information 
you will need. What's more, you 
can learn to use Apple-Aids in a 
single sitting. 

The most powerful of the Apple- 
Aids functions is the "Disk 






Editor." With it you can access any 
sector on a disk, and see its contents 
displayed in decimal, hexadecimal, 
character or disassembled form. A 
condensed display mode shows the 
entire sector in both hexadecimal 
and character form simultaneously. 
While the contents of the sector are 
in the Apple's memory, you can edit 
the data and write it back to the sec- 
tor of your choice. You have com- 
plete control of these functions; 
editing can be done in decimal, hex- 
adecimal or character mode, and 
you can easily select any slot, drive, 
track and sector you desire for any 
read/write operation. 

Sector editing is dependent, of 
course, upon knowing what sector 
you're looking for. Apple-Aids' 
"Sector Listing" option makes this 



a snap. Each file in the disk catalog 
is listed along with the tracks and 
sectors which contain its data. An 
"Improved Directory" feature lets 
you look at the disk catalog in a dif- 
ferent way. This option lists all files 
in the catalog, including ones which 
have been deleted, showing the file's 
name, type, and status (locked, 
unlocked or deleted). For each 
binary file, the address at which it 
will be BLOADed and its length are 
also shown. 

When you need a more general 
view of sector usage on a disk, bring 
up the "Disk Map" utility. On your 
screen you will see a table of 35 col- 
umns and 16 rows (13 for DOS 3.2), 
with an asterisk marking each sector 
currently in use: a graphic represen- 
tation of what DOS looks at when it 
decides which sectors are available 
for receiving new data. 

If you accidentally DELETE a 
file, you can use the "Undelete 
Files" utility to bring it back to life. 
This is done by restoring the original 
file type to the catalog entry and 
altering the Volume Table of Con- 
tents to show that the appropriate 
sectors are in use. The success of 
this option depends on whether you 
have written over any of the file's 
sectors in the meantime; but if you 
use it right after you make the dele- 
tion it can be a lifesaver. (If data has 
actually been erased by a DOS 
operation, you can really mess up a 
disk, so heed the warning given in 
the manual.) 

On a normally INITed disk, 31 of 
the 35 tracks are available for your 
use. Three are reserved for DOS and 
one for catalog information. Two 
Apple-Aids options allow you to in- 
crease the available storage space by 
creating a disk without DOS. The 
"Format Blank Disk" utility, as its 
name implies, gives you a blank, 
formatted disk without DOS. This is 
useful for creating disks which will 
be used only for data storage; DOS 
will already (presumably) be con- 



SoftSide 



(3 



71 



yIPPLE 



tained on your program disk. "Kill 
DOS" is similar, but it just removes 
DOS from the disk, without altering 
any other data already stored on the 
disk. Actually, only two additional 
tracks are made available to you by 
either of these methods, so you get 
32 or 26 sectors worth of space, 
depending upon which version of 
DOS you are using. Of course, the 
disk can't be booted, but you won't 
care if your application requires the 
additional disk space. A nice feature 
of these options is that they store in- 
formation on track to notify you if 
you mistakenly attempt to boot the 
disk. This is preferable to sitting 
spellbound as your disk drive runs 
on and on. 

EXEC files are a nice feature of 
Apple DOS, but they can be a hassle 
to create and revise. Apple-Aids has 
just what you need if you do a lot of 
EXECing. "Create Exec Files" and 
"Edit Exec Files" do just what they 
say, taking most of the headaches 
out of your EXEC file work. (If 




Do you think it's the neatest thing you could 

possibly be doing? 

We're looking for the best 

Send us a letter (or call us evenings) telling us what 
you like to program. Our emphasis is Apple ', and 
we like other computers too. Translations wanted. 
Come to our summer workshop August 8-14 in 
Eugene Oregon! Write for application and 

registration. -Apple .s a rtgi«ercd irjdemark of Apple Compuier, Inc 



you're hke me, you'll probably still 
find ways to create some more.) 

Rounding out the package is a 
useful, if somewhat slow, program 
which converts number bases, 
changing any decimal, binary, hex- 
adecimal, or octal number to its 
equivalent in each of the other 
numbering systems. This doesn't ac- 
tually quahfy as a disk utility, but 
it's awfully nice to have it there to 
use in conjunction with the others. 

My least favorite of the utilities is 
the "Disk Copy" function. Its ad- 
vantage is that the video display 
shows you which track is currently 
being copied. This is overshadowed, 
however, by the disadvantage that it 
copies only one track at a time. 
Copying with two drives is just 
slow, but copying with a single drive 
is maddening. It requires that you 
switch disks after each of the 35 
tracks is read or written, a total of 
70 switches to copy a single disk. I'd 
sooner use the COPY or COPYA 
programs that came on my DOS 
System Master Disk, in either case. 

Any time you purchase software 
for your Apple, you're taking a risk 
— it's unfortunate, but true. 
Forgive me while I climb up on my 
soapbox to make two important 
points in favor of Apple-Aids and 
Advanced Operating Systems. 
These are factors I weigh heavily 
when I consider buying a software 
package. 

First, the most important ele- 
ment, support. I had a problem get- 
ting the Apple-Aids "Text Dump" 
option to work with my printer. 
Everyone said that they support 
their products, but I knew better. 
Prepared for the runaround I'd 
received in quests for solutions to 
software problems in the past, I 
dialed the AOS phone number I 
found in the manual. Wonder of 
wonders, I didn't get a recording 
telling me to ask my dealer about it, 
or a sales department where they 
know nothing more about a package 
than its stock number. I got, in- 
stead, a live person in the AOS of- 
fice, so I decided to go for it, and 
asked for the program author. 
Another miracle — my call was put 
through to him, and in spite of what 
you might think, I didn't have to 
identify myself as a reviewer to 
receive this courtesy. 



In short, the print routine was 
promptly rewritten to correct the 
problem. When I did tell Mr. Wyatt 
I was reviewing his package, he 
asked me to inform my readers that, 
in the event they got a copy of 
Apple-Aids that had been shipped 
before this problem was detected, 
they should keep a backup copy and 
return the original to AOS for a 
FREE replacement. They'll even 
pay the shipping costs, he said. 
Although this sounds as though it 
should be routine procedure 
throughout the industry, believe me, 
it isn't. 

I mentioned that you can make a 
backup copy, which brings me to 
my second point: copy protection. 
Apple-Aids is not copy-protected. I 
would agree that, to some extent, 
software piracy is everyone's 
problem, but copy protection itself 
is often a problem; and when it is, 
it's nobody's problem but the 
user's. When I pay for a piece of 
software, I want the ability to im- 
mediately make a backup copy, 
without paying again. And if I 
somehow clobber my original, I 
want to be able to make another 
backup right away, in case I'm 
stupid enough to do the same thing 
again. I don't care for the fact that 
some software, especially games, is 
locked up tighter than a drum. I 
know from experience that the soft- 
ware I can use as a programmer is 
often useful in inverse proportion to 
the amount of copy protection it 
has. 

I hope some of you software 
pushers are listening, because I am a 
paying customer, and I speak for 
others Hke me: I am much more 
likely to buy your product if I can 
legitimately copy it, and if I know 
that direct support is readily 
available. Apple-Aids has both of 
these features. I'll get off the soap- 
box now. 

The longer you have Apple-Aids, 
the more uses you'll find for it. It 
can greatly enhance your program- 
ming and trouble-shooting 
capabilities in a DOS 3.2 or 3.3 en- 
vironment. I not only recommend 
Apple-Aids, I also advise you to 
take a closer look when you see the 
Advanced Operating Systems name 
on other software packages. I know 
I will. © 
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Sound Mixer 



An ATARI® K-Byter by Larry 
Locke, Nazareth, PA 

This is an excellent program to ac- 
quaint ATARI® users with the in- 
credible variety of sounds that can 
be generated by their computers. It 
allows you to mix and modify all 
four sound voices in real time, using 
a joystick plugged into port #1. 

Pressing the fire button chooses 
the voice to modify, as shown on the 
screen display in red. Moving the 
stick up or down increases or 
decreases the pitch. Moving to the 
left changes the distortion value, 
and moving to the right changes the 
volume level. 

Have fun creating new harmonies 
and cacophonies! 



10 Din PITCH(4i,DIST(4),V0L!4) 

20 FOR A=l TO 4:PITCH(A)=0:DIST(A)=10: 

VOL(fi)=B:NEn A 

30 GRAPHICS 18:? 16;" SOUND-MIXER b. 

40';' 16;° LARRY LOCKE " ;6QSUB 5Q 



60 MiSOTO 1000 



500 N=0:FOR S=3 TO 9 STEP 2:P0SITI0N 1 
,S:? 16; "SOUND ";N:N=N+l:NEn S:RETURN 

1000 IF STRI6(0)=0 THEN 60SUB 500!l(=X+ 

liGOTO 1055 

1020 IF STICK(0)=13 THEN PITCH()[)=PITC 

H(1()+1:IF PITCH(K)>255 THEN PITCH()!)=0 

1030 IF STICK!0) = 14 THEN PITCH(){)=PITC 

H()()-1:IF PITCH(X)<0 THEN PITCH(X)=255 

1040 IF STICK(0)=11 THEN DIST(X)=DIST( 

X!+2:F0R 1=1 TO 30:NEXT I:IF DIST(X)>1 

4 THEN D1ST(X)=0 

1050 IF STICK(0)=7 THEN VOL(X)=VDL(X)+ 

1:F0R 1=1 TO 30:NEXT I:IF V0L(X)>15 TH 

EN VOL(X)=0 

1055 IF X>4 THEN X=l 

1060 POSITION 1,X+X+1:? 16; 'sound' 

1070 POSITION B,X+X+1:? t6;",";PITCH(X 

);',';DIST(X);',';VOL(X);" ' 

1080 SOUND X-1,PITCH(X),DIST(X),V0L(X) 

:60T0 1000 © 



SOUND-MIMER BY 
LARRY LOCKE 

SOUND 0,18,12,8 

I 
I 

SOUND 1,70,10,8 

■ 

SOUND 2,188,10,8 
SOUND 3,46,14,9 
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ATARI DV 



by Paul Marentette 

Random Access Database is a 
database management program for 
an ATARI® 400/800, requiring 32K 
RAM and a disk drive running 
under DOS 2. It is included as a 
bonus program on this month's 
ATARI® Disli Version. 

Those of you who have a disk 
drive and ATARI®'s DOS 2 are in 
for a treat. This totally revised ver- 
sion of the database makes full use 
of the random access capabilities of 
disk storage. 

Until now the database has been 
an "in-memory" system. All 
records were kept in the computer's 
memory at all times. If only one 
record was added or deleted from 
the database, the entire database 
had to be rewritten to the tape or 
disk. With a large database this is 
time consuming and inefficient. 

In-memory databases are also 
limited in size because data must fit 
into available RAM. For example, if 
you had a 40K machine, you could 
have a database of approximately 
170 90-byte records. With the ran- 
dom access database (and 480 free 
sectors on a disk) more than 770 of 
these records could fit in the 
database. 

Before examining the new 
database, let's consider how 
ATARI® handles random disk ac- 
cess. The NOTE and POINT in- 
structions are used to keep track of 
where each record resides on the 
disk. When a file is opened in mode 
12 (OPEN #IOCB,12,0,"D: 
FILENAME") an internal pointer 
positions the disk's read/write head 
at the beginning of the file. Under 
program control the POINT 
#IOCB, Sector, Byte instruction is 
then used to reposition the disk head 
at any sector and byte in the file. 

In this manner the computer can 
automatically calculate where a 
record resides on the disk, and bring 
only that record into memory. Only 
one complete record ever resides in 
RAM; this frees up the bulk of 
memory for storing the pointers 
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(disk addresses) for each record in 
the database. Since each pointer 
uses only 3 bytes, a much larger 
database can be created. 

The pointers, consisting of the 
sector (1-720) and byte (1-125) ad- 
dress of each record, are stored in 
the P$ string. They could be stored 
in a numeric array, but that would 
require 12 bytes of memory for each 
sector-byte pair. Instead, by using 
the CHR$ and ASC string func- 
tions, the two numbers can be 
stored in 3 bytes. The first two bytes 
store a sector number. Byte #1 con- 
tains the number of 256's in the sec- 
tor number; byte #2 contains the re- 
mainder. And byte #3 contains the 
byte portion of the disk address. 
Thus an address of sector 550, byte 
63 would have a pointer in the P$ 
string consisting of CHR$(2), 
CHR$(38), and CHR$(63). 

The routine from line 1070 to 
1110 writes blank records into the 
disk file and stores their NOTEd ad- 
dresses in the P$ string using the 
CHR$ function. Lines 170 to 180 
contain a reverse process which uses 
the ASC function to decode the P$ 
characters into byte and sector 
numbers and then point the disk 
head to the calculated address. The 
program then reads (line 1160) or 
writes (line 1140) a record at that 
address. 

Stepping Through the Program 

Although this version of the 
database follows the general outline 
of the earlier one (Softside, 
December, 1981), it is significantly 
different in many areas. 

Lines 1 10 to 700 contain variable 
initialization, frequently used 
subroutines, and the main menu and 
disk directory read routines. Not 
much has changed here, but things 
have been moved around and some 
of the subroutines are new. 

The really important changes 
have occurred in the load and save 
file routines and the new file 
initializing routine. Let's examine 
the last of these first. Starting at line 
850 the number and names of 
headings are established. The 
numeric array B(NH-l- 1) is used to 
store the starting bytes of each field 
since we are now allowing fields to 
have different lengths. The earlier 
database padded every field with 
blanks so that all fields were the 



same length as the longest one — a 
terrible waste of space. 

Throughout the program the S, E 
and L variables are used to specify 
the start, end, and length of a field 
within the total record. These values 
are recalculated any time the field in 
question changes. 

Once the headings are known the 
program calculates the maximum 
number of records that can be ac- 
commodated, given the two 
variables of available RAM and disk 
space. Then the tricky business 
starts. We could set aside enough 
disk space for MX records; but, if 
the database is a small one, disk 
space will be unnecessarily 
dedicated to the database file. We 
could add a new record to the end of 
the file each time one is needed; but 
that is wasteful too — ATARI® 's 
File Management System grabs a 
new disk sector every time a record 
is added (using lO mode 9) and ig- 
nores any vacant bytes that might 
have existed on previously used sec- 
tors. 

The way I solved this problem 
was to "block" records in groups 
that come as close as possible to fill- 
ing complete sectors. Up to 50 
records (an arbitrary number) can 
be in a block. An efficient block size 
between 1 and approximately 50 is 
calculated in lines 1000 to 1040, and 
then the subroutine at line 1070 is 
called to do the actual setting up of 
file space. The variable RA keeps 
track of total file space already set 
aside. When more space is needed, 
another block is added on. 

Every database file you create will 
have two disk files associated with 
it: The one with a ".DAT" exten- 
sion will hold the actual records, 
and the other with a ".HDG" ex- 
tension will hold the heading names, 
file size information, and the P$ 
string containing the pointers to all 
records in the ".DAT" file. The 
heading file is saved in lines 1180 to 
1260. Variables ELK and RA are 
saved along with the others so that 
the database program always knows 
how a particular file is blocked and 
what space is already set aside. The 
".HDG" file will grow in size as the 
database grows; as more records are 
added, the pointer string gets 
longer, and that string is saved up to 
its current length. 

When an old file is loaded (lines 
720 to 800), the ".HDG" file is read 



first and variables are dimensioned 
as needed. Then a routine at line 820 
is called to read into memory one 
complete set of fields for the first 
heading. In other words, the first 
heading's contents for every record 
are placed in memory. The CH 
variable keeps track of which 
heading is the current one. If a sort 
or search is done on a different 
field, that field's contents for every 
record are read in using this same 
routine. 

The add and change records 
routines share a common input data 
subroutine (hnes 1710-1730). If, 
when a record is being added (line 
1600), available file space (RA) has 
been filled, a new block of space is 
created by calling the routine at line 
1070. The variable lO is set to 9 so 
that the file is opened in the append 
mode. In the change record section 
the variable CS is checked to see if 
any changes were made to the cur- 
rent record. If so (CS = 0), then the 
subroutine at line 1140 is called to 
rewrite the record at the same loca- 
tion on the disk from which it was 
read. 

In the delete and sort records 
routines the real beauty of random 
access is seen in action. When a 
record is deleted from the database 
it is not removed from the disk. In- 
stead, the pointer to that record's 
disk space is moved to the end of the 
P$ pointer string (line 1900) so that 
the deleted record's disk space can 
be made available for new records. 
In the sort routine, whenever the 
sort field is moved around, the cor- 
responding pointers in the P$ string 
are moved around too. In effect, the 
records are never moved on the disk 
— only the pointers get sorted! 

Data is automatically saved when 
you quit the program. (Don't exit 
the program any other way than the 
Q menu option!) If you want to save 
a copy of your file in the midst of 
working, the save option will save a 
copy of your current heading and 
pointer file. The data itself is always 
saved automatically, immediately 
after it is entered or changed. 

Any other revisions, not de- 
scribed here, are merely adjustments 
in the coding to accomodate the new 
random access format. For help 
with using the program's features 
check Mark Pelczarski's article on 
the Apple version in SoftSide, 
October, 1981. © 
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by Peter Adams 

Sabotage is an arcade-type game 
for an ATARI® 400/800 with 16K 
RAM and one joysticli. 



Your mission is to destroy the 
enemy's main computer. You will 
travel from room to room (left to 
right) in order to gain access to it. In 
each room there is a laser that will 
relentlessly fire upon you. 

As the game begins, you are 
represented by the orange dot in the 
upper left of the screen. The yellow- 
green dots scattered around the 
room are control boxes. The blue 
lines are walls and the yellow-green 
machine at the top center is the 
enemy's laser (surrounded by its 
shields). All items shown are highly 
electrified and will destroy you upon 
contact. 

You are able to fire a missile in 
the direction you are moving, or, if 
you are stationary, in the direction 
you last moved. You may only have 
one missile in play at a time. 

If you hit a control box with your 
missile, that control box is tem- 
porarily disabled (1 point). If you 
can disable six or more control 
boxes, the transporter on the right 
wall will allow you to pass into the 
next room. If you hit the right wall 
while there are five or more control 
boxes left, you will be transported 
back to the left side of the board. 
Leaving a room while all ten control 
boxes are disabled is worth five 
bonus points. 

Before the enemy's laser fires at 
you, you will be warned by the 
dropping of its shields, while it locks 
onto your position at that time. 
Shortly it will fire a laser at that 
point; if you are still there, or you 
are in the line of fire, you will be 
destroyed. If you shoot the laser 
with a missile while its shields are 
lowered, it will be disabled (5 
points). While the laser is disabled, 
no control boxes will regenerate. A 
laser can only be disabled once per 
room. 






If you are able to reach the main 
computer (room five on your first 
mission), you destroy it by moving 
yourself into it. This sets off a chain 
reaction which destroys the whole 
complex. Your mission is then com- 
plete (30 points) and you must 
escape before it is too late (10 
points). 

You have three lives to complete 
your mission. If you succeed, you 
will be given another mission more 
difficult than the first. 

Variables 

B: Room number. 

D: Lives left. 

DX: Missile X change if fired. 

DY: Missile Y change if fired. 

G: Difficulty. 

GT: GOTO variable. 

H, I: Work variables. 

L: Laser present (1) or gone (0). 

M: Missile on (2) or off (0). 

MX: Missile X coordinate. 

MY: Missile Y coordinate. 

SC: Score. 

T: Work variable. 

Tl: Time counter for laser firing. 

T2: Time spent in room. 

T3: Time counter for increasing 

difficulty. 

T4: Time counter for laser. 

VI: Laser has (1) or has not (0) 

been fired in a room. 

V2: Color in which to plot 

disappearing missile. 

V4: Length of walls in escape 

room. 

V5: Time counter for escape room. 

V7: Frequency of invisible walls. 

V8: Maximum difficulty. 

V9: Mission number. 

X: Your X coordinate. 

XM: Missile X change. 

X(10): Control boxes' X 

coordinates. 

XC(15): X change for stick 

positions. 

Y: Your Y coordinate. 

YM: Missile Y change. 

Y(10): Control boxes' Y 

coordinates. 

YC(15): Y change for stick 

positions. 
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% ATARI BASIC t 

i "SABOTAGE" » 

t AUTHOR: PETER ADAHS % 

♦ (C) 1982 SOFTSIDE t 

Initialization. 

100 1!=5:Y=10:L=1:D=3:I1Y=47:V9=1:6T=690 

.■V8=2:B=1:D.1(=1 

120 DIM )(C(I5),YC(15),U$(1),T$(1):FDR 

T=5 TO 15!READ H,I:.KC(T)=H:YC(T)=I:NE)( 

T T:Ut=CHR»128):T$=CHR$!127; 

130 DATA 1,1,1,-1,1,0,0,0,-1,1,-1,-1,- 

1,0,0,0,0,1,0,-1,0,0 

HO DIM XdOI.YflO) 

Set up Incomplete Player Missile 
Graphics. 

150 POKE 53277, 3:P0KE 704,130:POKE 705 
,216 

Reset another room. 

200 GRAPHICS 5:P0KE 752,1:P0KE 77,0:SE 
TCQLOR 0,2.6:? "SABOTAGE", 
210 ? T$;"ROOM "i!B-V9)+l;" MISSION " 
;V9:6=7-B:? "SCORE",,, "LIVES":? SC,,,D 
:T2=0:V1=0:IF B=5 THEN 7000 

Draw center wall for room four. 

220 GOSUB 6000: IF B=4 THEN PLOT 39,40: 
DRAHTO 39,9:DRAWTQ 4l.9:DRftHT0 41,40 

Draw other walls. 

230 FOR T=10 TO 60 STEP 20:PLOT T,2:DR 
AHTO T,20tRND(l)+14:PL0T TM0,40:DRAMT 
T+10,31-20*RND(1):NEI{T T:60SUB 4100 

Draw and store control box 
locations. 

240 COLOR 2:F0R T=l TO 10:H=INT(70tRND 
(l)+5):I=INT(27tRND(l)+10):PL0T H,I:n 
T)=H:Y(T) = I:NE!(T T:60SUB 4000 

Draw yellow walls for room three. 

250 IF B=3 THEN PLOT 30,10:DRAWTO 30,2 
0:PLOT 50,10:DRA«T0 50,20 

Check joystick and change player 
position. 

500 T=STICK(0) 

540 COLOR 0:FLOT !(,Y;!(=X+EfT):Y=Y+YC( 

T):LOCATE )(,Y,H:IF H>0 THEN 2000 .. 




Adjust missile direction. 

560 IF TOI5 THEN DX=XC(T):DY=YC(T) 
Add new missile. 

600 IF STRI6(0)=0 AND H=0 THEN t1=2:NX= 

X:MY=Y:XM=2»DX:Y«=2*DY 

Move missile accordingly. 

610 PLOT MX,MY:MX=MX+XM:I1Y=«Y+YM:CGL0R 
hPLOT X,Y:LOCATE MX,HY,H:LOCATE HX-X 
M/2,MY-YM/2,I:IF H+I>0 THEN 1000 
620 COLOR M:PLOT I1X,HY:IF X>75 THEN 30 
00 
630 SOTO 6T 

Make walls invisible or visible for 
higher missions. 

640 IF V7tRND(lK0.1 THEN SETCOLQR 2,0 

,0 

650 IF RND (1X0.1 THEN SETCOLOR 2,9,4 

Laser counting before firing. 

690 IF T1>0 THEN T1=T1+1:IF Tl>Gt2 THE 
N 60SUB 5000: T1=0 

700 IF T2/2000+RND(n<0,97 OR L=0 OR T 
1)0 THEN 720 

Set up laser for firing. 

710 T1=1:C0L0R 2:G0SUB 4000:S0UND 1,20 
«G+20,2,4:TX=X:TY=Y:C0L0R 0:GOSUB 4100 
Regenerate a control box. 

720 IF RND(1)<0.02 AND L=l THEN H=INT( 
10«RND(1I+1):COLOR 2:PL0T X(H),Y(H) 
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Regenerate laser. 

900 IF L=0 THEN T4=T4+1:IF T4>6«30 THE 

N L=l: COLOR 2: 6=6-1: GOSUB 4000: COLOR 3 

:60SUB 4100: IF G<V8 THEN 6=V8 

910 T2=T2+1:T3=T3+1:IF T3>300 THEN T3= 

0:G=G-1:IF 6<V8 THEN 6=V8 

990 GOTO 500 

Missile hits something. 

1000 IF DO THEN MX=HX-XH/2:HY=HY-YM/2 
1010 LOCATE MX,MY,H:ON H GOTO 2000,110 
0,1150 

Missile hits a control box. 

1100 IF MY<7 AND MX>38 AND MX<42 THEN 
1500 

1110 V2=0:F0R T=40 TO 100 STEP 5: SOUND 
0,T,10,8:NEXT T:SQUND 0,0,0,0:SC=SC+1 

:? U$;SC:GOTO 1200 

Missile hits a wall. 

1150 SOUND 0,100, 10, 4:F0R T=0 TO 20:NE 
XT T:SOUND 0,0,0,0:V2=3 

Get rid of missile. 

1200 M=0:CQLOR V2:PL0T MX,«Y:XN=0:Y«=0 
:MX=0:MY=40:G0T0 630 

Missile hits laser. 

1500 IF Vl=l THEN V2=2:60T0 1200 
1510 V1=1:T1=0:L=0:T4=0:F0R T=0 TO 75: 
SOUND 0,T,2,8:NEXT T:S0UND 0,0,0,0:SOU 
ND 1,0,0,0 

1520 SC=SC+5:? U$;SC: COLOR 0: GOSUB 400 
0:60SUB 4100:V2=0:G0T0 1200 
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Player destroyed. 

2000 COLOR 2:PL0T X-2,Y-2:DRAMT0 X+2,Y 
+2:PL0T X-2,Y+2!DRftHT0 1(+2,Y-2:F0R T=l 
TO 40:S0UND 0,10,T,8:NE)(T T 
2010 COLOR 0:PLOT X-2,Y-2:DRAHT0 .?+2,Y 
+2: PLOT X-2,Y+2:DRAHT0 X+2,Y-2:SETC0LD 
R 2,9,4: IF Y>37 OR Y<5 THEN Y=20 
2020 D=D-1:? ,,,U$iD;:Tl=0:X=5:S0LiND 
,0,0,0!S0UMD 1,0,0,0:IF D<1 THEN POKE 
53248, 0:POKE 53249, 0:BOTO 11000 
2030 ? -.eOSUB MOO: IF L=0 OR B=i THEN 
COLOR 0;60SUB 4000 
2040 GOSUB 4100:G0T0 500 

Player reached right wall. 

3000 IF B=5 THEN 8000 
3010 IF B=6 THEN 10000 

Count control boxes. 

3020 1=0: FOR T=l TO 10: LOCATE )((T),Y!T 
),H:I=I+H:NEn T:V4=V4+I/2 

Transport player left if more than 
four control boxes. 

3030 IF I>8 THEN SOUND 0,30,12,4:C0L0R 
0:PL0T X,Y:X=5:F0R T=l TO 100:NEXT T: 
SOUND 0,0, 0,0: GOTO 690 

Give five point bonus for clearing all 
control boxes. 

3040 IF 1=0 THEN SC=SC+5:? U»;SC:FOR T 
=1 TO 1200 STEP 20:SOUND 1,T,10,4!NEXT 
T 

Reset board. 

3050 FOR T=255 TO STEP -1:S0UND 1,T, 
10,5:NEXT T:X=5:T1=0:B=B+1:L=1:80T0 20 


Draw laser. 

4000 PLOT 39,3:DRAHT0 41,3:PL0T 39,4:D 
RAHTO 41,4:PLQT 40,5:RETURN 

Draw laser's shield. 

4100 PLOT 37,3:DRAHT0 37,7:DRA«T0 43,7 
:DRAHTO 43, 3: PLOT 36,3!DRAHT0 36,8:DRft 
«T0 44,8:DRAMT0 44,3:RETURN 
Fire laser. 

5000 COLOR 2:PL0T 40,6:DRflHT0 TX,TY:SO 
UND 1,1,4,6:L0CATE X,Y,H 
5020 COLOR 0:PLQT 40,6:DRft«TD TX,TY:IF 
H=2 THEN 2000 

5030 COLOR 3: GOSUB 4 100: SOUND 1,0,0,0: 
RETURN 
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Draw perimeter. 

6000 COLOR 3: FOR T=0 TO 3: PLOT T,T;DRA 
«T0 T,39+T:DRAHTQ 79-Tt0.6,39:DRAilT0 7 
9-T»0.6,T:DRAHTO T,T:NEXT TiRETURN 

Draw main computer room. 

7000 GOSUB 6000: FOR T=10 TO 40 STEP 5: 
PLOT T,0:DRAHTO T,40:NEXT T:FQR T=l TO 
10:PLaT 7,T:DRAIplT0 35,T:NEXT T 

Move PM in view. 

7010 POKE 53248, 200: POKE 53249, 200:F0R 
T=10 TO 40 STEP 5: PLOT 10,T:DRAMT0 40 
,T:NEXT T:60SUB 4100 
7020 FOR TM3 TO 70 STEP 8: PLOT T,40:D 
RAHTO T,8:PL0T T+4,O!DRAMT0 T+4,35:NEX 
T T 

Draw 150 boxes. 

7040 COLOR 2: FOR T=l TO 150: PLOT 70»RN 
D(1)+5,30»RND(1)+5:NEXT T:PLOT 43,30:G 
OSUB 4000 :GT=690: GOTO 500 

IVIission accomplished. 

8000 SC=SC+30:? "MISSION ACCOHPLISHED" 
:FOR T=255 TO STEP -1: SOUND 0,T,10,6 
:SOUND 1,T,12,6:NEXT T 

Reset screen. 

8010 GRAPHICS 5: POKE 752,1:SETC0L0R 0, 
2,6:? "YOU NQ« HAVE TO ESCAPE BEFORE": 
■7 "THE COMPLEX IS DESTROYED." 

Move PM out of view. 

8020 POKE 53248,0: POKE 53249,0: FOR T=0 
TO 256:S0UND 0,T,10,4:NEXT T;? :? :'' 
SC,,,D:'? Ut;Ui; 
Draw walls. 

8030 GOSUB 6000: FOR T=10 TO 60 STEP 20 
:PL0T T,2:DRAHT0 T,20+V4:PL0T T+10,40: 
DRfiWTO T+10,22-V4:V4=V4+2 
8040 IF V4>16 THEN V4=16 

Draw 100 boxes. 

3050 NEXT T:X=5;B=6:GT=9000:V5=200-V9» 
20:C0L0R 2:F0R T=0 TO 100:H=8tRND(l! :P 
LOT HtH+5,30tRND(l)+5:NEXT T:V4=0:L=1 

Print information labels. 



3100 ? "SCORE", "TIME LEFT", "LIVES":'' 



Adjust escape time left. 

9000 V5=V5-1:S0UND 1,V5,2,4:? ,U$;INT( 
0.16tV5i;" ":IF V5>0 THEN 900 

Didn't make it out. 

9500 FOR T=10 TO STEP -1;SETC0L0R 4, 
0,12:F0R H=l TO 10:NEXT H:SETCDLOR 4,0 
,0:SOUND 0,T»10+100,12,10 
9510 SOUND l,Tt5+125,2,10:NEXT T:SETCO 
LOR 4,0, 12: GOTO 11000 

Escaped alive. 

lOOOO SC=SC+10:X=5:GRAPHICS 2:? 16;" 
GOOD JOB'!" 

10005 ■? 16,,,,' YOU COMPLETED'," H 
ISSION °; V9, , , "SCORE", SC, "LIVES", D, "TI 
ME LEFT ";V5t0.16 

10010 FOR T=l TO GOiSOUND l,200tRND(l) 
,10,4:FQR H=l TO 20:NEXT H:NEXT T:SOUN 
D 1,0,0,0 

Adjust variables for next mission. 

10020 V9=V9+l:B=V9:6T=640:Tl=0:V8=V8-0 
.3:V7=4.5-V9:G0T0 150 



Start another game. 

11000 SOUND 0,0,0,0:SOUND 1,0,0,0:? :• 

PRESS START TO PLAY AGAIN"; 
11010 IF PEEK (53279)06 THEN 11010 
11020 RUN 



ATARI® SWAT TABLE FOR: 


SABOTAGE 


SWAT 




LINES 


CODE 


LENGTH 


100 - 210 


EJ 


608 


220 - 540 


MN 


557 


560 - 710 


SX 


598 


720 - 1110 


UA 


573 


1150 - 2000 


HG 


626 


2010 - 3020 


FQ 


542 


3030 - 4100 


U 


610 


5000 - 7010 


RH 


534 


7020 - 8020 


EC 


606 


8030 - 9500 


GS 


613 


9510 - 11000 


FA 


576 


11010 - 11020 


KK 
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Ali-Baba And The Forty Thieves 



A review by Guy S. Allred 



By Stuart Smith (Quality Software). 
System requirements: 32K 
ATARI® 800 with disk. Suggested 
retail price: $32.95. 

A burning, Arabian sun shines 
down on the white sands this fateful 
morning as a lowly royal messenger, 
Ali Baba, goes about his business, 
not knowing what adventures the 
day will bring. Soon a cry rings 
throughout the land: the Sultan 
Shahriar's daughter. Princess Bud- 
dir al-Buddoor, has been kidnapped 
by a ruthless band of thieves, led by 
the cunning Cogia Houssain. The 
Princess has been taken to the 
thieves' stronghold, deep inside a 
treacherous mountain. Can Ali 
Baba, aided by the Sultan's elite 
corps, rescue the Princess and 
return her to safety before nightfall? 

Such is the state of things when 
we meet Ali Baba in this new adven- 
ture/fantasy game from QuaHty 
Software. Stuart Smith has created 
a world filled with more characters 
than most novels, and enough 
escapade to interest almost anyone. 

Little did I know what was in 
store for me on the morning my 
editor deposited Ali Baba on my 
desk. After initially spending over 
twelve hours playing the game, with 
no conscious notice of elapsed time, 
let me warn you, I am not about to 
write a bad review. This game is 
challenging, exciting, and well 
worth the price, not to mention the 
time you'll spend playing it. 

The diskette comes with a 24 page 
documentation booklet designed to 
guide you through your options and 
to serve as a handy reference tool 
during play. Scenario, play option, 
characters (good or bad, friend or 
foe), and battle specifications are all 
fully outlined. You don't have to 
study, or even read, the booklet to 
play but it helps to familiarize 
yourself with the given information. 

At the outset you are given the 
opportunity to select how you wish 



to play the game, either through the 
keyboard (arrow keys) or with 
joysticks. 1 to 17 people can play, 
each controlling as few as one 
character or as many as seventeen. I 
would recommend using joysticks 
for more than one player. 

With each turn you are offered a 
variety of options. Resting lets you 
recoup energy lost from battle or in- 
jury. Adding characters provides a 
helpful diversion for you in making 
your way around enemies. Drop- 




ping gold or armor can free you 
from excess weight when in pursuit. 
These choices, to name but a few, 
are all given. The REST option is 
not offered at each turn. Obviously, 
when you are about to be pounced 
upon by an enemy you won't want 
to take a cat nap. 

I found the ADD PLAYER op- 
tion to be the most frequently used 
and the most helpful of all the op- 
tions. It allows you to add as many 
characters as you please with each 
turn, or to retire those characters 
during their later turns. After 



you've spent several turns collecting 
gold, armor, and weapons, you may 
not want to risk death in battle. At 
this point you may want to add 
characters to create a necessary 
diversion, thus allowing you to slip 
by your enemies without fighting. 

You can change the difficulty of 
the game at any time during play by 
adjusting the Monster Rebirth Rate. 
(Yes, they can come back to ter- 
rorize you at the least opportune of 
times.) Any level can be chosen, 
from to 127, with the higher levels 
being more difficult. You're given 
quite a bit of freedom here and it's a 
definite asset. At times it comes as a 
comfort to know that once you've 
killed an enemy — he's dead! 

The world you enter as Ali Baba 
is inhabited by a countless number 
of beings. The Sultan's elite corps, 
your allies, consists of 16 members 
ranging from dexterous humans to 
lithe elves, skilled halflings to 
powerful dwarves. A full descrip- 
tion of each being is given in the 
documentation booklet and in- 
cluded in the character tables. This 
lets you see how each relates to all of 
the other creatures, both friend and 
foe. 

Sent to do battle, and to keep you 
from the princess, are, of course, 
the theives and the various creatures 
who dwell in the mountain 
stronghold. These creatures include 
felines and other mortal animals, as 
well as magical, metaphysical be- 
ings. Not all of the mountain 
dwellers are adverse to the forces of 
good and many can offer needed aid 
in times of trouble. All of these 
creatures are also included in the 
character tables. 

The graphics are both nicely ex- 
ecuted and refreshingly different. 
As you enter each new room, during 
the early portion of the game, the 
contents, including visible exits, are 
identified for you using a bright 
"halo" and titles. This helps you to 
become familiar with the various 

continued on page 82 
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VOLUMES FROM THE PAST 



If you like what this issue of SoftSide has 

to offer, you should see what's waiting for 
you in SoftSide back issues! You may feel 
that you've missed out on many of our 
programs that appeared before you became a 
subscriber. It's not too late to do something 
about it. You won't have to miss a thing 
because we still have back issues available to 
complete your SoftSide library! But, order 
now as some of our more popular issues are 
already out of stock and others are dwindling 
quickly. 

Listed below are all of our past issues with 
their FEATURE programs and the systems 



they're for. For a more complete index of all 
the programs and articles offered in each of 
the back issues of SoftSide please refer to the 
May, 1981, issue. Each issue costs $3.50 for 
the magazine only. These issues are also 
available with the programs on cassette for 
$9.95 or on disk for $14.95 (except DV 
issues). 

The enhanced Disk Versions (DV) contain 
an extra program for each system. The TRS- 
80® DV began with the September, 1981, 
issue. The Apple DV began October, 1981, 
and the ATARI® DV started in November, 
1981. Each enhanced DV costs $19.95. 



August 1980 

'"You Can Have Sound" — 
Apple 

"Rom the Robot" — Apple 
"Masters Golf" — ATARI® 
"Grand Prix" — TRS-80® 



October 1980 

"Developing Data Base 11" 

All Systems 

"Moonlanding" — Apple 
"World Series" — ATARI® 
"Earth-Port 11" — TRS-80® 



November 1980 

"Developing Data Base IIP 
All Systems 
"Collision" — Apple 
"Trench" — ATARI® 
"Kriegspiel" — TRS-80® 



December 1980 

"Developing Data Base IV' 
All Systems 
"Baseball" — Apple 
"Speedello" — ATARI® 
"Kidnapped" — TRS-80® 



January 1981 

"Developing Data Base V" 

All Systems 

"Convoy" — Apple 

and TRS-80® 

"Angle Cannon" — ATARI® 

"Ship Destroyer" — TRS-80® 



February 1981 

"Developing Data Base Vl"- 

All Systems 

"Miner" — All Systems 

"Mini-Golf" — ATARI® 

and TRS-80® 

"Long Distance" — TRS-80® 



March 1981 

"Developing Data Base 
VH" — All Systems 
"Strategy Strike" — Apple 
and TRS-80® 
"Flags" — ATARI® 
"Volcano" — TRS-80® 



April 1981 

"Battle At Sea" — Apple 
"Convoy" — ATARI® 
"Dominoes" — TRS-80® 



May 1981 

"Galaxia" — Apple 
"Dodge" — ATARI® 
"Orienteering At Jacque's 
Coulee" — TRS-80® 



June 1981 

"Old Glory" — All Systems 
"Word-Search Puzzle 
Generator" — All Systems 
"Anallist" — TRS-80® 



October 1981 

"Leyte" — All Systems 

"Developing Data Base" — Apple 

"Character Generator" — 

ATARI® 

"EnvyrnTM" _ TRS-80® 

Enhanced Disk Versions 

"Super Dairy Farming" — Apple 
"Gameplay" — TRS-80® 



November 1981 

"Flight of the Bumblebee" — 
All Systems 

"Music Machine" — Apple 
"Music Programmer" — ATARI® 
"Music Editor" — TRS-80® 

Enhanced Disk Versions 

"National Anthems" — Apple 
"Volleyball" — ATARI® 
"Mean Checkers Machine" — 
TRS-80® 



December 1981 

"Titan" — All Systems 
"Aircraft Commander" - 
"Developing Data 
Base" — ATARI" 
"Electronics 
Assistant" — TRS-80® 

Enhanced Disk Versions 

"Bobsledding" — Apple 
"Survive" — ATARI® 
"Konane" — TRS-80® 



January 1982 

"Gambler" — All Systems 
Apple "Microtext 1. 1" — All Systems 
"Apple Capture" — Apple 
"Piazza Hotel" — ATARI® 
"TRS-Man" — TRS-80® 

Enhanced Disk Versions 

"Nuclear Submarine Adventure" 

Apple, TRS-80® 

"Death Star" — ATARI® 



February 1982 

"Space Rescue" — All Systems 
"Rubicube" — Apple 
"Defense" — ATARI® 
"Maze Sweep" — TRS-80® 

Enhanced Disk Versions 

"Andorra" — Apple 
"Kismet 11" — ATARI® 
"Help Package" — TRS-80® 



March 1982 

"Hexapawn" — All Systems 

"Magical Shape Machine" — 

Apple 

"Outer Space Attack" — 

ATARI® 

"Killer Cars" — TRS-80® 

Enhanced Disk Version 

"PEEKER/POKER" — Apple 

"Curse of the Pharaoh" — 

ATARI® 

"Warpath" — TRS-80® 



April 1982 

"Microtext" — All Systems 
"Poster Maker" — Apple 
"ATARI® Banner 
Machine" — ATARI® 
"Database" — TRS-80® 

Enhanced Disk Versions 

"Semaphore" — Apple 
"Renumbering for the 
ATARI®" — ATARI® 
"Screen Print" — TRS-80® 



May 1982 

"Solitaire" — All Systems 
"Micro-Man" — Apple 
"Cross Reference" — ATARI® 
"Ladders" — TRS-80® 

Enhanced Disk Versions 

"List Formatter" — Apple 
"Robot Battle" — ATARI® 
"Breakthru" — TRS-80® 



Use card provided in this issue to order or send a list of 
the back issues you'd hke, with payment of $3.50 per 
magazine (minimum order of 3 issues) to: SoftSide 
Publications, 515 Abbott Drive, Broomall, PA 19008 

To order the magazine/media combinations, use the card 
provided or send $9.95 per cassette and magazine, $14.95 
per disk and magazine, or $19.95 per DV and magazine to: 
SoftSide Publications, 6 South Street, Mllford, NH 03055 

Prices for USA orders only. For foreign orders, see page 16. 
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T.H.E. 

SMART 

TERMrNAL* 




TURN YOUR ATARI 400 OR 800 INTO 
A REAL SMART TERMINAL 

Get up to date information from 
services like Dow Jones, CompuServe, 
The Source, and local timesharing 
computers. 

Save the information on disk or cassette 
for editing or reviewing when you 
disconnect from the telephone line! 

Send the edited information back to 
the timesharing system when you are 
ready. 

REDUCE YOUR CONNECT CHARGES 
BY READING AND WORKING OFF 

LINE!! 

• User friendly 

• Disk or Cassette Based 

• Works with Hayes Smart Modem 

• X-ON/X-OFF Protocol 

• Runs in 16K 

• Serial or Parallel Printers 

• Menu or Command Driven 

• Save Data on Cassette or Disk 

• Upload/Download Atari 400 or 800 

• Multiple files in memory 

This package allows you to define, 
transmit and receive characters so you 
can send characters and control codes 
not found on the Atari keyboard and 
receive characters that the Atari can 
translate into something it understands. 

A POWERFUL COMMUNICATIONS 
PACKAGE AT A SUPER PRICE! 

T.H.E. MOST Sophisticated Communica- 
tions Package Available for the Atari, 
400 or 800 and its available on Cassette, 
too! 

$49.95 cassette or disk 

ORDERING INFORMATION 

Call BINARY directly to place your 
order. Our order lines are open 24 
hours per day, 7 days per week. 

Shipping and handling charges: 

North America: Add $2.50 
Outside N.A.: Add 10% 
Michigan Residents: Add4%tax. 

Payment Methods: 

VISA. Master Charge, AMEX, cash, 
certified check, personal check 
lallow for clearance I , money order. 

Look for Binary Software Products at 
your local computer store. 

Dealer Inquiries invited 

COMPUTER SOFTWARE 

3237 Woodward Ave. 

Berkley, Mi 48072 

(313)548-0533 
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Screen shots from Ali Baba and the Forty Thieves 



BINARY CORPORATION 



symbols used. You are always told 
where you are and, through change 
of color, made aware of the changes 
in both level and danger as you 
delve deeper into the mountain. 

Scattered throughout the game 
are symbols indicating runes. 
Landing on these symbols will pre- 
sent you with a graphics display, ac- 
companied by music, offering infor- 
mation useful to you in your quest. 
The style of lettering used in these 
displays is reminiscent of ancient 
Arabic writings. The accompanying 
music also helps to enhance the 
Middle Eastern flavor, by conjuring 
pictures of street markets and 
fakirs. It's this kind of attention to 
detail, used throughout the game, 
which has made this an excellent 
program. 

If there is one drawback to the 
game, it's the speed with which it ex- 
ecutes. If you enter a room filled 
with several opponents and 
characters added to fight them, you 
must sit through each of their turns, 
foe as well as friend. This adds quite 
a bit of playing time, but without 
this option, the game would not be 
nearly so distinctive. 

If all of this sounds just a little 
familiar to fans of the DUNGEONS 
& DRAGONS™ games, it should. 
The game bears more than a passing 



resemblance to the DUNGEONS & 
DRAGONS™ games. The distinct 
difference is that you share the 
Dungeon Master's functions with 
the computer, as well as serving as a 
player. The computer decides all 
battles while the player retains con- 
trol over most of the rest of the 
game. 

Like the DUNGEONS & DRAG- 
ONS™ games, Ali Baba is of con- 
siderable length, but with the 
convenient option of SAVE TO 
DISC, you can stop the game at any 
time and return to it when you 
please, exactly where you left it. 

In speaking to Bob Christiansen 
at Quality Software, I learned that 
the Apple version is in the editing 
stage and should be out as this 
magazine goes to press. This version 
will use paddles rather than 
joysticks. 

At this point, I shall leave you to 
enjoy the rest of this issue while 1 
return to Arabia, Ali Baba, and 
whatever else awaits me. I recom- 
mend you join me as soon as you 
can buy a copy of ALI BABA AND 
THE FORTY THIEVES. I'll be 
waiting. © 



"DUNGEONS & DRAGONSTM is a 
trademark owned by and used under license 
from TSR Hobbies, Inc." 
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K-Byter 

Meteor Dodge 

A TRS-80® K-Byter by Matt Hillman, Brookline, MA. 

The object of Meteor Dodge is to pick up a specified 
number of fuel canisters before you are destroyed by a 
meteor storm. You choose the number of canisters at the 
beginning of the game, suiting the difficulty of the game 
to your mood and experience. 

You are represented on the screen by the letter Y, and 
the canisters by the letter C. The other characters which 
appear on the screen are the meteors which you must 
avoid. You pick up canisters by moving over them with 
your Y, which you move using the arrow keys. 

5 CLS 

10 PRINT 325, "METEOR DODGE" :YV=8:VH=32: INPUT "HON NftNY CANISTERS 
DO YOU WANT TO TRY TO RESCUE'jCiPRINT "YOU ARE THE Y AND THE C 

S ARE CANISTERS. ANYTHING ELSE IS A HETEOR. HIT 

ANY KEY TO START " 

20 A«=INKEY$:IPA<="''THEN20 

30 CLS 

35 F0RI=lTOC:K=RND(1023!-l!lFPEEK(153iO+X)=32THENPRINT))(,"C";:NE 

niELSEI=I-l:NE)(TI 

37 PRINT8YV»64+YH,"Y"; 

40 F0RI=1TD2 

45 PRINTSO, "SCORE ";S; 

50 A=PEEK( 14400; !lFA=160RA=SQRA=320RA=64THEN99 

iO D=RND ( 1023! -1 ! IFPEEK ( 15360+D) =32THENPRINTJD, CHR« (RND (i3) +128) 

lELSEBOTOAO 

70 S0T040 

99 PRINTSYH+YVU4," '; 

100 IFA=8THENYV=YV-lELSEIFA=liTHENYV=YV+lELSEIFA=32THENYH=YH-lEL 
SEYH=YH+1 

120 IFYV<OORYV>150RYH<OORYH>63THENCLS:PRINTJ20,"YOU ARE FOREVER 

LOST IN SPACE": END 

130 IFPEEK(153i0+(64«YV)+YH)>128THENCLS:FRINTJ25,'Y0U HIT A METE 

0R":ENDEL5EIFPEEK( 15360+ l64tYV)+YH)<>32THENS=S+l:IFS=CTHENCLS:PR 

1NTS2S,"Y0LI WINI":END 

140 PRINT844»YV+YH,"Y";;NEniiGOT0iO © 




SoftSide 



M 



83 




TRS-80 DV 



icitiEi;sriEL II 



86 87 

21 ^^ 


88 


89 16 


11 


12 
1 


13 


14 


15 


16 


17 


18 


19 




1 


m 


-u1 




^ 
^ 












21 
22 
23 
24 


26 




1 1 


,J 


r-^ 


r 












25 
26 


27 ■# 
28 


'h 


i/L{ 


r 
^•1 
















27 
28 


29 






V 


^ 














/I 29 


38 

31 

86 87 


88 


89 18 


11 


1 

12 


13 


14 


15 


16 


17 


18 


^38 

31 
19 



by Ron Potkin 

Kriegspiel II is a graphics 
wargame simulation for a TRS- 
80® Model I or III witli at least 32K 
RAM and disk drive. It is included 
as a bonus program on this month's 
TRS-80® Disk Version. 

The objective of this wargame is 
to enter your opponent's city or to 
reduce the number of opposing 
pieces to less than half of your own. 
It is played on a map which is just 
under four times the size of the 
video screen, consisting of 31 rows 
of 16 hexagons. The area seen on 
the screen at any one time is 1 1 rows 
of 7 hexagons, or one-sixth of 
the map. 

Getting Started 

The map has the following 
features: 

(1) Two opposing cities: one in the 
northwest and one in the southeast. 

(2) Five neutral towns (in the same 
locations in all scenarios). 

(3) A river flowing from north to 
south (in varying locations in dif- 
ferent scenarios). 

(4) Mountains in various locations, 
the number varying according to 
your choice. 



Each army contains 20 pieces: 



Piece 


Number 


Movement 


Attacic 






Factor 


Factor 


Heavy Tank 


4 


14 


3 


Light Tanli 


6 


12 


2 


Infantry 


10 


10 


1 



This number may be increased up to 
a limit of 25 through recruiting, 
which will be explained below. 

Upon running the program you 
will be prompted to enter the 
scenario number. You may enter 
any number up to 9999, which will 
then be used as the basis for creating 
the map features and weather. Re- 
using the same number will allow 
you to re-create particularly in- 
teresting scenarios. You are then 
asked to choose a number of moun- 
tains; any number up to about 200 
may be used. The screen then clears 
and you will see the various pieces: 
mountains, cities, towns, and river, 
being placed on the map. After this 
is finished, you are given the option 
of reviewing the map; obviously the 
game will be more of a challenge if 
you choose not to do so. If you re- 
ply affirmatively, the map will scroll 



across the screen until you press 
a key. 

The date, weather, and details of 
the scenario are displayed at the top 
of the screen; the number of pieces 
on each side is displayed at the bot- 
tom. The southeast corner of the 
map is displayed (Southeast always 
moves first), and play begins. 

The order of play is as follows: 

(1) Movement phase: The Southeast 
player moves all, some, or no 
pieces. 

(2) Combat phase: All conflicts 
resulting from the Movement phase 
are resolved. 

(3) The Movement and Combat 
phases are repeated for the 
Northwest player. 

(4) The player holding a majority of 
towns recruits an additional piece. 

(5) The calendar is updated and the 
weather for the next month is 
displayed. 

These five steps are repeated 
throughout the game. 

The Movement Phase 

A player may, during his or her 
turn, move pieces up to the limit of 
the movement factor given in the 
chart above. It takes two movement 
units to move from one hexagon to 
the adjacent one, with some excep- 
tions. The six hexagons surrounding 
a city or town are considered major 
roads, and it takes only one move- 
ment unit to move OUT of one of 
these. You cannot move into a town 
hexagon or into your own city. You 
cannot move into a mountain hex- 
agon, nor even next to one if there 
are floods. Crossing the river, ex- 
cept at a bridge, normally takes four 
units. If there is ice, it takes only 
two, and if there are floods the river 
cannot be crossed at all. Note, 
however, the effect of a city or town 
lying across a river (scenario 8). 
These factors may also be affected 
by the weather, as described below. 

Six number keys and seven letter 
keys are used to effect movement 
and various actions during this 
phase. To move a piece, type in a 
direction number from 1 through 6. 



You can picture these numbers as 
the points on a six-hour clock. 
Northeast is 1 , southeast is 2, south 
is 3, southwest is 4, northwest is 5, 
and north is 6. A piece cannot be 
moved further when it moves next 
to an opposing piece, when its 
movement factor reaches zero, or 
when its movement factor reaches 
one and it is not in a hexagon ad- 
jacent to a town or city. (But note 
option W below.) 

Here are the available options 
during the Movement phase. They 
are selected by pressing the in- 
dicated key: 

(S) Stop a piece before it has ex- 
pended all movement units. 

(C) Change sides, if you decide 
that you have finished all the moves 
necessary even though some pieces 
have not yet moved. 

(H) Hold further movement of a 
piece temporarily so that pieces can 
be moved other than in their nor- 
mal, pre-defined order. This makes 
it easier, for example, to clear a con- 
gested area. 

(F) Fire at another piece two hex- 
agons away. This 
may be done 
once during a 
piece's movement. 
After pressing F, 
press a direction 
number from 1 through 6 
Pressing any other key 
will cancel the command. If the at- 
tacked piece is not destroyed, it will 
fire back. The odds of a hit are as 
follows: 



(T) Transport an infantry piece 
from one of the six hexagons sur- 
rounding one town or city, to the 
vicinity of another town or city. The 
destination city/town must be 
friendly and must have an empty 
hexagon adjacent to it. This takes 
four movement points and cannot 
be done during ice or snow. The 
destination is chosen by typing a 
number from 1 to 7, corresponding 
to these locations: 



1 



(W) Wait. There may be times 
when it is desirable to move the full 
distance and then fire or lay a mine 
field. "Wait" avoids automatic 
continuation, and pauses until you 
press either (S)top or (C)ontinue to 
attack. 

A town is considered occupied if 
the surrounding hexagons contain 
forces from both sides. If only one 
side resides on these positions, it is 
considered held or friendly. It is to a 
player's advantage to hold towns, 
since the player who holds a major- 
ity of the towns is entitled to recruit 
an extra piece. 
Weather can have considerable 
effect on results. It 
will vary throughout 
the year, with snow 
or ice domi- 
nating the winter 
months. 





DEFENDER 


Attacker 


Heavy Light Infantry 




Tank Tank 


Heavy Tank 


20% 30% 30% 


Light Tank 


10% 20% 30% 


Infantry 


10% 10% 10% 



and floods playing a significant role 
in the spring. There is a chance of 
rain throughout other months. Here 
are the effects of the weather 
conditions: 

Fine: Normal conditions. 

Rain: Movement factor is halved. 

Snow: Movement factor is 
halved; no transport is possible. 

Ice: No transport is possible; river 
is normal terrain. 

Floods: River can be crossed only 
at bridges; no movement is possible 
next to mountains. 

Combat Phase 

Combat is divided into a number 
of rounds. It takes place upon com- 
pletion of the Movement phase, be- 
tween opposing pieces on adjacent 
hexagons, and will continue until 
there are no more adjacent op- 
ponents. Most of this phase is 
automatic and needs no interven- 
tion, unless a decision is needed be- 
tween options (e.g., attack, ad- 
vance, retreat, or eliminate). 

Each piece will attack only one 
opposing piece. If it is adjacent to 
more than one opponent, it will 
flicker "AT?", and you must then 
type a number from 1 through 6 to 
indicate the direction of attack. A 
piece may be under attack from 
more than one opponent, in which 
case the attackers' attack factors are 
summed together. The total attack 
factor is then augmented by 50% 
and rounded down to the nearest 
integer. 

The attack factor of the defender 
will be enhanced if there are any 



(M) Lay a mine field. Each player 
starts the game with the ability to 
lay five mine fields. Only infantry 
may do so. Pressing M will cause the 
piece to flicker "MINE", and then 
pressing a number from 1 through 6 
will specify the direction of the field 
from the piece being moved. Press- 
ing any other key will indicate the 
number of mines left. If the position 
is not vacant the piece will flicker 
"HOW?". Mine fields are invisible. 
Heavy tanks have a 90% chance of 
being destroyed when moving into 
one; light tanks, 50%; and infantry, 
30%. 




mim:: 















continued on next page 



friendly pieces adjacent to the op- 
posing pieces which are attacking. If 
such friendly pieces are under attack 
themselves, however, they will be of 
no support value. If a particular 
piece is in a supportive position for 
more than one attack, it will be of 
actual benefit in only one. The 
defender's attack factor will also be 
enhanced (doubled, in fact) if the at- 
tack is coming exclusively from 
across the river. 

After calculating the attacker's 
and defender's attack factors in this 
way, their ratio is reduced to a sim- 
ple form and the table below is 
consulted. 

The numbers in the table indicate 
five possible outcomes of an attack. 
Given a particular ratio of attack 
forces, one of the letters in the ap- 
propriate column is chosen at ran- 
dom. (Odds greater than 6:1 against 
a piece mean automatic elimina- 
tion.) The possible outcomes are: 

(1) All attackers are eliminated. 

(2) All attackers must retreat two 
hexagons. In retreating they must 
move to a vacant location which is 
not adjacent to an opposing piece. 
They may cross the river. Both 
flood and mine field conditions are 
in operation during retreats (and ad- 
vances). If a piece is unable to 
retreat, press E and the piece will be 
eliminated. 

(3) Exchange. The defender is 
eliminated. The attacker must 
choose one or more of his own 
pieces to eliminate, such that their 
total attack factor is at least equal to 
that of the eliminated defender. (If 
this is not possible, then all the at- 
tacking pieces will be eliminated.) 
Each candidate for ehmination will 
flicker "EX" in turn; press E to 
eliminate it or N to keep it. 

(4) Defender must retreat two hex- 
agons. The same conditions apply as 
for the attacker in (2). The attacking 



forces may then advance one hex- 
agon in any direction, including 
moving next to an opposing piece to 
attack in the next round. If you do 
not want a piece to advance, press S. 
(5) Defender is eliminated and the 
attacker may advance one hexagon. 
Note that supporting defenders are 
not involved in the outcome, and 
are not eliminated or forced to 
retreat. 

At the end of each round of play, 
the occupation status of each town 
is checked. The side which holds a 
majority of towns will recruit an ex- 
tra piece: infantry for a majority of 
one town, a light tank for a majority 
of two, and a heavy tank for a ma- 
jority of three or more. Recruiting 
will not occur if the player with the 
majority already has 25 pieces, or if 
all the hexagons surrounding his city 
are occupied. 

Strategy Notes 

Think before you fire. A light 
tank firing on a heavy tank, for ex- 
ample, has a 10% chance of hitting; 
but the heavy tank has a 20% 
chance when it fires back. 

Calculate odds carefully prior to 
combat. Rounding down takes place 
twice. For example, consider two 
heavy tanks and an infantry unit at- 
tacking a heavy tank with a support- 
ing infantry unit. The attacking 
units' total attack factor is 7 
(3 + 3 + 1). With the 50% addition, 
rounded down to the nearest in- 
teger, this becomes 10. The de- 
fending tank and supporting infan- 
try have a total factor of 4. The 
defender:attacker ratio of 4:10 will 
then become 1:2. Looking at this 
column in the table, you can see that 
there is a possibility of the attacker 
being completely eliminated (out- 
come number 1). Adding a single 
additional infantry unit to the at- 



tacking force, however, would yield 
an attack factor of 12 (3 + 3 + 1 + 1 , 
plus 50%), giving a much more 
favorable final ratio of 4:12 or 1:3, 
with no possibility of total elimina- 
tion of the attacker. 

Guard your city carefully. Infan- 
try is not always enough. Attack by 
a heavy tank can create havoc, since 
it can continually attack and ad- 
vance during the combat phase until 
it enters the city (although it may 
not advance into the city in that 
turn). 

Only infantry can lay or destroy 
mine fields effectively, so they must 
be conserved and not sent on 
desperate missions. 

The hexagonal "honeycomb" 
playing board may be confusing un- 
til you get used to it. Pieces which 
line up horizontally with one 
another may appear to be adjacent, 
but actually are not. Thus a piece 
may lie to the immediate east or 
west of a town, but not be occupy- 
ing one of its adjacent hexagons. 

The number of scenarios is almost 
unlimited. Although the program 
will place mountains only on vacant 
hexagons, it may place them in such 
a way that they surround towns or 
pieces, or block bridges. The lack of 
such restrictions makes the program 
more varied and interesting; 
however, if you don't like a par- 
ticular scenario, it takes very little 
time to create a new one. 

Try a scenario with 200 moun- 
tains. This creates some interesting 
features: passes, valleys, an occa- 
sional open plain, and very 
restricted movement. 

There is one limitation with 
regard to the river. If it runs off the 
side of the map, it will wrap around 
to the other edge. If this happens, it 
loses its orientation and the map is 
unplayable. This very seldom 
happens. q 
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PIAZZA 
HOTEL 

Dy Gary Dominick 



TRS-80® version By Michael R. 
Freifeld, Translation Contest 
Winner. 

Piazza Hotel is a game of logic 
and lucl<, with sound and grapliics, 
for a TRS-80® Model I or III with at 
least 16K RAM. 

This program was published in its 
original ATARI® version in the 
January, 1982, issue of SoftSide. As 
the house detective of the Piazza 
Hotel, you have just been informed 
that there is a bomb in one of the 
rooms. Your job is to find it — 
FAST. 

You begin your search by choos- 
ing a floor and a room number. If 
you are not correct, you will be 
given clues to help you focus your 
search. You never know what the 
next guess will lead to. Sometimes 
it's the correct room. Sometimes 
it's. ..BOOM! 



Variables 

A: String variable used for 
"Piazza Hotel" banner and the 
other major graphics characters. 
B: String variable used for player's 
rating and other purposes. 
C, D: Miscellaneous string 
variables. 

E: Used in sound routine and in 
generation of graphics characters. 
F-Z: Used initially to generate 
graphics characters. 

F, R: The floor and room number 
of the bomb. 

G, H: The player's guess for the 
floor and room number. 
N: The number of guesses left. 
Q: Value of the total number of 
guesses. 
W-Z: Used in FOR-NEXT loops. 
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% TRS-80 BASIC t 

» "PIAZZA HOTEL" % 

« AUTHOR; GARY DOHINICK « 
( TRANS: HICHAEL R. FREIFELD t 
» (C) 1982 SOFTSIDE » 



Define variables. Set up Piazza Hotel banner. 
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10 CLEAR4000:DEFSTRfl-D!DEFlNTF-Z! 1=128! J=13l!L=174!N=191:P=135:Q 

=lB6:R=149iS=179!U=17l!V=15l!t(=8:Y=2A!F=170!BMB4:H=18l!E=177!T= 

U3 

20 C=CHR«(«)!FORl(=lT052!C=C+CHR$(K):NEnX 

30 B=CHR$(Y)+C 

40 D=CHR$ (N) ^CHR* ( J ) iCHRt ( J ) ^CHRt IN) «CHR» ( I ) ^CHRt ( J) ^CHR« (U) ^CHR 

t(V)+CHR«(J)iCHRI(I)+Clffit(N)tCHR$(JI+CHRt(JKCHRt(N)^CHRt(I) 

50 F0RX=lTD2;D=D+CHR»(J)+CHR«(T)+CHR«(N)+CHRtlP)+CHR»(I)!lilEn)( 

40 0=D+CHR«(N)+CHR<(J)tCHR«(J)+CHR$(N)+CHR»{I)+CHR«(I)+CHR$(I)+C 

HR«(N)+CHR»(I)+CHR«(I)+CHR$(N)+CHR»(I)+CHRI(N)+CHR»(J)+CHR«(J)+C 

HRt(N)+CHR$(I) 

70 D=D+CHR»(J)+CHR»(U)+CHR$(V)+CHR»(J)+CHR»lI)+CHRt(N)+CHR«(J)+C 

HRt(J)+CHR$(J)+CHR((I)^CHRi(N)4B 

80 D=D+CHR» (N) +CHR» ( J) +CHR« ( J ) *m% ( J) +CHR$ ( I ) +CHR» (L) +CHR» (Q) +C 

HR»(H)+CHR«(L)+CHR«(I)+CHR»(N)+CHR»(J)+CHR«(J)+CHR»(N)+CHR$(I) 

90 F0Rl(=lT02:D=D+CHR»(6)+CHR»(N)+CHR»(E)+CHR«IL)+CHR<(I)!N£nX 

100 D=D+CHR$ (N) +CHR» (J ) +CHR« ( J ) +CHR» (N) KHM ( I ) +CHR$ ( 1 1 +CHR« ( I ) + 

CHR»(H)+CHR»U)+CHR$(J)+CHR«(N)+CHR»(I)+CHR«(N)+CHR»(L)+CHR»(L) + 

CHRt(NUCHRt(I) 

110 B=D+CHR»(I)+CHR»(F)+CHR$(R)+CHR«(I)+CHR«(I)+CHR«(N)+CHR»(S)+ 

CHR«(S)+CHR«(L)+CHR«(I)+CHR$(N)+CHR»(L)+CHR»(L)+CHR<(L) 

120 CLS:PRINTS4,D;!E0SUB1130 

Initialize sound routine (by Alan J. Zett, SoftSlde, 
November, 1981.) 

140 Z=0:FQRX=1T0158:READY!Z=Z+Y!NEXT:IFZ<)15204THENCLS:PRINT"DAT 

A ERROR":STOPiELSEY=8i!X=255!POKE-l,0:IFPEEK(-l)<>0THEN){=19l:POK 

E-14385,0!lFPEEK(-14385)<>0THEMX=127 

150 POKE14542,X:POKE14541,Y!CLEAR5000!K1=PEEK(14541)+2:N2=PEEK(1 

4542)!t(=Ml+N2t254!Z=«-liF0RX=lT015B!Z=Z+liZ=Z+45534«(Z>327i7) 

140 READY:IFY<OTHENY=)(l+ABS(Y)!P0KEZ,Y+254t(Y>255)!Z=Z+l!P0KEZ,N 

2-(Y>255):N£XTELSEP0KEZ,Y:NEXT 

170 IFPEEK(14394)=20l!POKE14524,Hl:P0t(E14527,K2!ELSECHB"T":DEFUS 

R=tll+(M2+254t(«2>127))t254;P0KE14308,0 

180 IFPEEK ( 14B07) +PEEK ( 14808) t2S4< >N+24THENM=USR (0) 

190 SOUNSn,U 

200 DATA58, 144, 45,50, -144, 42, 147,45, 34, -145, 42, 195, 50 

210 DATA144,45,33,-24,34, 147,45,201,245, 123,254,2,40,4,254 

220 DATA14,32,79,229,213,42,230,44, 124, 183,32,4,35,35,35,35 

230 DATA215,4,5, 17,-154,24, 190,32, 104, 19,35, 14,248,43,215 

240 BATA43, 34, 230, 44, 241, 241, 241, 241, 197, 213,215, 205, 55,35 

250 DATA229,205, 127,10,42,33,45,34,-147,225,215,43,34,230,44 

240 BATA35,205,55,35,43,229,205, 127, 10,42,33,45,58, -147,40 

270 BATA183,87,24, 4, 24, 48,24, 44, 44, 42, 1,2) 1,255, 14,252, 44,42 

280 DATA2,211, 255, 14,252,58,44, 54,230,4, 32, 7, 124, 181, 40, 3,43 

290 DATA24,228, 175,50, 154,44,225,209, 193,215, 195,30,29,83,79 

300 DATfl85,78,48,209,225,241 



Initialize variables and set up graphics 
characters for use in program. 



131iK=140!L=174!H=188!N=191:0=134:F=140!B=132:R=174!S=179iT=157! 
U=147:V=147:ll=8!Y=24iZ=143!B=CHR$(Y)+CHR»(K)+CHR$(M)+CHRt(W) 

Graphics characters 1-7. 

320 A(l)=CHR$(K)+CHR$(f1)+CHR»(I)+B+CHR»(L)+CHR«(N)+CHR»(L) 
330 A(2)=CHR»(K)+CHR«(K)+CHR«(N)+B+CHR«(N)tCHR»(S)+CHRt(S) 
340 A(3)=CHRt(K)+CHR»(K)+CHR«(l1)+B+CHR»(S)+CHR»(S)+CHRI(N) 
350 A(4)=CHR$(I1)+CHR«(I)+CHR«(H)+B+CHR»(J)+CHR$(J)+CHR»(N) 
340 A(5)=CHR$(!1)+CHR«(K)+CHR»(K)+B+CHR»(S)+CHR«(S)+CHR»(N) 
370 A(4)=CHR$(N)+CHR»(I)+CHR»(I)+B+CHR$(N)+CHR$(S)+CHR«(N) 
380 A (7) =CHR« (K) +CHR$ (K) +CHR$ (H) +B+CHR» ( I ) +CHR« ( I ) +CHR» (N) 

Graphics symbols and arrows. 

390 B=B+CHR«(N)+CHR»(H) 

400 A(8)=CHR»(I)+CHR«(I)+CHR»(I)+CHR«(P)+CHR$IQ)+B+CHR»(I)+CHR$( 

R)+CHR»(N)+CHR«(T)+CHR«(I) 

410 A (9) =CHR$ ( I ) +C.HR» (0) +CHR* (G) +CHR« ( I ) +CHR$ ( I ) +B+CHRI (H) +CHR» ( 

SI+CHR»(U)+CHR»(V)+CHR<(I) 

420 A ( 10) =CHR« (N) +CHR$ (H) +CHR* (N) +CHR« (M) +CHR« (N) +B+CHR» (N) tCHR$ 

(N)+CHR«(N)+CHRt(N)+CHRt(N) 

430 A(ll)=CHR<(I)+CHR»(I)+CHR$(K)tCHR»(L)+CHR«(I)+B+CHR«(J)tCHR» 

(J)+CHR»(S)+CHR»(Z)+CHR»(J) 

440 A(12)=CHR$(I)+CHR»(L)+CHR«(K)+CHR$(I)+CHR$(I)+B+CHR«(J)+CHR$ 

(Z)+CHR»<S)+CHR»IJ)+CHR«(J) 

450 A ( 13) =CHR» ( I ) +CHR» ( I ) +CHR» (N) tCHR» ( I ) +CHR» ( I ) +B+CHR« ( J ) +CHR» 

(K)+CHR$(N)+CHR$(K)+CHR$(J) 

440 A(14)=CHR$(I)+CHR»(L)+CHR«(H)+CHR»(L)+CHR»(I)+B+CHR$(J)+CHR$ 

(I)+CHR$(N)+CHR«(I)+CHR$(J) 

470 A(15)=CHR»U)+CHR«(K)+CHR«(K)+CHR»(Hy+CHR»(H)+B+CHRt(L)+CHR» 

(K)+CHR»(J)+CHR*(I)+CHR«(Z) 

480 A(14)=CHR«(H)+CHR«(H)+CHR»(K)+CHR»(K)+CHR<(I)+B+CHR»(Z)+CHR» 

(I)*CHRI(J)^CHRt(K)*CHR«(L) 

490 A(17)=CHR$(K)+CHRJ(L)+CHR»(I)+CHR$(I)+CHR»(L)+B+CHR$(I)+CHR« 

(L)+CHR«(S)+CHR«(I1)+CHR$(N) 

500 A ( IB) =CHR» (L) +CHR« ( I ) +CHR« ( I ) +CHR» (L) +CHR» (K) +B+CHR» (N) +CHR$ 

(N)+CHR«(S)+CHR$(L)+CHR»(I) 
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510 A(19)=CHRt(N)+CHR»(S)+CHR»(S)+CHR»(S)+CHR»(Z)+B+CHR»(N)+CHR» 

(L)+CHR»(LI+CHR»(L)+CHR$(N) 

520 ft(20)=CHR$(N)+CHR<(J)+CHR$(J)+CHR$(J)+CHR»(N)+B+CHR»(N)+CHR» 

(L)+CHR$(L)+CHR$(L1+CHR«(N) 

530 A(21)=CHR»(N)+CHR$(K)+CHR»(L)+CHR«(K)+CHR«(N)+B+CHR»(N)+CHR$ 

(I)+CHR«(n+CHR»(I)+CHR«(N) 

540 A (22) =CHR« ( I ) +CHR$ ( I ) +CHR» (N) +CHR$ ( I ) +CHR« ( 1 1 +B+CHR* ( I ) +CHR« 

(n+CHR$(S)+CHR»(I)+CHR»(I) 

Initialize variables for player rating. 

550 B(l)=" SUPER SLEUTH":B(2)=' MASTER DETECTIVE"!B(3)="DETEC 

TIVE CLASS-A"!B(4)="DETECTIVE CLASS-B":B(5)='DETECTIVE CLASS-C: 

B(6)=" NOVICE TRAINEE" 

560 C="!PRINTJ979,'ANY KEY TO CONTINUE'iiPRINTJO, "iiSOUNDlljll 

!C=INKEY«!lFC="THEN560ELSEaS 

Choose the number of guesses that the player 
will have, and determine where the bomb will be 
placed. 

570 RAND0N!N=RND(4)+2!F=RNDt7):R=RND(9)!S=0:CLS:Q=0 
Build the hotel on the screen. 



580 PRINTJ27,"BUILDIN6";:S0UND90,100 

590 F0RX=lT07:PRINT8960-128ll(,A(X)i:PRlNTai020-128«X,A(X);:PRINT 

J0.",':S0UND45,200!NEni( 

600 8=1019:FORX=lT07:Q=Q-12B;FORY=lT09;PRINTJQ-6tY,A(10)i:PRINTJ 

0,";!SQUN010,100:NE)(TY!S0UND255,15:NEXTX 



410 PRINTa27," 
D10,50!NEXTX!Q=1 



";!F0RX=lTO9!PRINTa6IX,Xi;PRINT80,"i:S0UN 



Display the number of attempts left and get the 
player's input. 



620 PRINT8991, "PIAZZA HOTEL ATTEMPTS LEFT ="!N;!PRINT90,""j:SOU 

ND200,20!S0UND100,50:IFN=060T0770 

630 C="":PRINTS960, "FLOOR (1-7)?";:C=INK:EY»!IFVAL(C)<10RVAL(C)>7 

THEN630ELSES=VAL(C)!PRINTGi!PRINTJO,""i:SOUND100,60 

640 C='"iPRINTJ976,"R00« (l-9)?"i!C=INKEY$:IFVAL(C)<10RVAL(C)>9T 

HEN640ELSEH=VAL(C)!PRINTH)!PRINTJ0,""i:S0UHD150,45 

650 PRlNT8BJ7-12Bt(6-llt(H-l)»6,A(9l;:PRINTJO,""j:F0RX=lT010!SOU 

ND255,2:SOUNI)150,4iSOUND200,3:SOUND100,5:NEXTXiIF6=FANDH=RTHEN10 

40 



Branch to the proper "hint" subroutine. 

660 IFBOFTHEN690 

670 IFH<R,X=11:G0SUB1030 

680 IFH>R,X=12!G0SUB1030 

690 IFHORTHEN720 

700 IF6<F,X=14:60SUB1030 

710 IFG>F,X=13!GOSUB1030 

720 IFH<RANDG<F,X=15!60SUB1030 

730 IFH<RANDG>F,X=17i60SUB1030 

740 IFH>RANDG<F,X=16!6QSUB1030 

750 IFH>RANDG>F,X=18!G0SUB1030 

760 S0T0620 

Explode the bomb. 



770 Z=B37+6»(R-l)-128»(F-l):FDRX=lT010;PRINTaZ,A(8))!PRIIIT80,"; 
!SOUND255,10!PRINT82,A(10)iiPRINT80,""(!SDl)ND10,100!NEXTX 




780 L=47;X=2!60BUBlOO0 
790 L=81;X=5:BOSUB1000 
800 L=203!X=7;60SUB1000 
810 L=325!X=9!6GSUB1000 
820 L=453!X=9:BOSUB1000 
830 L=58l!X=9:GOSUB1000 
840 L=715!X=7:60SUB1000 
850 L=849!X=5:60SUB10C0 
860 S0UND255, 100 

870 eosuBioio 

880 PRINT80,""; 

690 F0RE=50T075STEP . 1 ! SOUNDE , 1 : NE X TE 

900 PRINT8465,A(19);:PRINT8471,A(20);!PRINT8477,A(20)j:PRINT8483 

,A(21);:PRlNT8489,A(22)f:PRINT80,"";!S0UND255,250 

910 60SU61010 

920 PRINT8340,"T00 BAD! - — TOO LATEI"!!60StlB1020 

930 PRINT8404,STRIN6tl23,'=');:60SUB1020 

940 PRINT8467,"Y0U ARE NOH A DETECTIVE IN"j!60SUB1020 
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950 PRINTS529,'THAT BI6 HOTEL IN THE SKY, TO";:60SUB1020 
960 PR1NT9595, "RETURN TO EARTH FOR ANOTHER" pBOSUB 1020 
970 PRINTS661,"6ANE PRESS ANY KEY...";:60SUB1020 
980 C="":C=INKEY$:S0UND11,1!:IFC=""THEN9B0 
990 60T0570 

Subroutine to draw bomb display. 

1000 L=L-6!F0RH=lT0)(:L=L+6!PRINT8L,A(8)i!PRINT80,""i!S0UND100,10 
:NEni(:S0UND255, 10: RETURN 

Subroutine to clear center of display. 

1010 L=273:F0R)(=1T06!L=L+64:PRINT8L,STRIN6»(30," "liiNEXTXiRETUR 
N 

Subroutine to click the audio amplifier. 

1020 PRINT80,""|!50UND100,10:RETURN 

Subroutine to print a hint at the location of the 
player's guess. 









1030 PRINTJ837-128«(G-l)+(H-l)«6,A(X)i!PRINT80,""|:F0RY=lT01O!S0 
UND255,2!SOUND()(»18),4!S0UND2O0,3:SOUND(l(l7),5!NEUY:PRINT9960,S 
TRINGt(31," ")|:PRINT80,";:N=N-l:Q=Q+l!RETURN 

Print the results at the end of a successful 
game. Determine the rating based on the number 
of guesses it took to find the bomb, and 
compute the number of guests saved. 

1040 PRlNTJ837+6t(R-l)-128»(F-l),fl(8)i:PRINT80,"'i 

1050 F0R)(=50TO10STEP-l;S0UNDK,ll:S0UNDX+45,10!SQUNDRND(55),9:NEll 

TX:L=-64!FQRX=lTQ7:L=L+12B!F0RY=lT09!PRINTJL+6«Y-l,A(9)j:PRIMTa0 

,"i:SOUND30,50!SOUND20+RND(20)-10,80iSOUND10,100!NEnY:NEnX 

1060 60SUB 1010 

1070 PRlNTS343,"CON6RATULATIONS!"i!BOSUB1020 

1080 PRINT8407, STRING* ( 16, "=• ) ; ! 60SUB1020 

1090 L=RND(10O)+(6O0-Qtl00):PRINT8466,"Y0U HAVE SAVED" ;L; 'GUESTS 

.";:G0SUB1020 

1100 PRINT852B,"Y0U ARE NOW A "jBIQ); 

1110 PRINT8657, "PRESS ANY KEY FOR ANOTHER GANE.";!G0SUB1020 

1120 G0T0980 

90 Ul SoftSide 



Print the instructions. 

1130 PRINT:PRINT 

1140 PRINT"S-80 TRANSLATION BY HICHAEL R. FREIFELD AUTHORi GA 

RY DOHINICK" 

1150 PRINT" AS THE HOUSE DETECTIVE OF THE PIAZZA HOTEL, YOU 

HAVE JUST" 

1160 PRINT"BEEN INFORNED THAT THERE IS A B0I1B IN ONE OF THE ROOH 

S. YOUR" 

1170 PRINT"JOB IS TO FIND IT - F A S T." 

1180 PRINT 

1190 PRINT" YOU BEGIN YOUR SEARCH BY CHOOSING A FLOOR AND A 

ROOM" 

1200 PRINT"NUMBER. IF YOU ARE NOT CORRECT, YOU KILL BE GIVEN CLU 

ES TO HELP" 

1210 PRINT"YOU NARROM YOUR SEARCH, YOU NEVER KNOM NHAT YOUR NEX 

T GUESS" 

1220 PRINT"N1LL LEAD TO. SOHETIHES IT'S THE CORRECT ROOM. SOME 

TIMES" 

1230 PRINT"IT'S. . . B N !" 

1240 RETURN 
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TRS-80® SWAT TABLE FOR: 




PIAZZA HOTEL 










SWAT 




LINES 


CODE LENGTH 


10 - 


80 


TJ 


528 


90 - 


160 


PN 


530 


170 - 


260 


YJ 


526 


270 - 


350 


DA 


529 


360 - 


450 


OF 


511 


460 - 


540 


6T 


558 


550 - 


610 


IB 


519 


620 - 


730 


BS 


524 


740 - 


850 


KN 


315 


860 - 


970 


VN 


420 


980 - 


1050 


KU 


522 


1060 - 


1170 


RK 


489 


1180 - 


1240 


KA 


309 
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Tasmon 



A review by Tim Kniglit 



By Bruce Hansen. From The Alter- 
nate Source, 704 North Penn- 
sylvania Ave., Lansing, MI 48906 
(517)482-8270. For TRS-80® Models 
I and III with disk or tape. Sug- 
gested price $29.95. 

In my experience with Machine 
Language and Machine Language 
programming utilities, I've seen 
quite a few "T-BC/G" type 
monitors. Some are barely ade- 
quate, some are good, but I've just 
bought a monitor that I wouldn't 
hesitate to call incredible! This 
monitor, "TASMON" (for "The 
Alternate Source MONitor"), 
would certainly suit the needs of 
almost any Machine Language pro- 
grammer. TASMON will work on 
the TRS-80® Model I or Model III 
with either tape or disk. 

After I ordered TASMON, it ar- 
rived promptly. Much to my sur- 
prise, it contained a 45 page manual 
(with a complete table of contents), 
a handy reference card and a 
registration card which I turned in 
so that I could be notified of any up- 
dates in TASMON. 

I was disappointed to find that I 
simply couldn't load the program. 
The Alternate Source is a fine com- 
pany, but I'm afraid that their tape 
duplication procedures aren't the 
most reliable. However, I flipped 
the tape from the high baud (Model 
III) side to the low baud (Model I) 
side, and the program loaded. 

TASMON has many nice 
features. I'm afraid I won't be able 
to Ust all of them, but I'd like to 
point out some of the important 
"pluses" in the program. To begin 
with, the documentation is very 
complete, and a short machine 
language program (TEST/CMD) is 
included to get the user started. 

The main purposes of any 
monitor are: (1) to modify and/or 
replace the registers of the Z-80 (or 
other memory areas), and (2) to 
manipulate a Machine Language 
program in order to make it work 
more effectively; or just to make it 



work! TASMON performs these 
functions quite effectively. 

Since TASMON can directly 
modify any part of accessible 
memory, you can move "up" and 
"down" in memory (byte-by-byte) 
examining the contents of any one 
byte. If you want to see more than 
one byte, you simply initiate a 
"memory" dump of a full 15 bytes 
to the screen, then you can move the 
memory observation area up or 
down. You may also "jump" to any 
location in memory to observe what 
is there. 

Disassembly is also easy to imple- 
ment with TASMON. The 
disassembled Hsting of the Machine 
Language program in memory may 
be printed out either on the screen 
or on the printer. 

Another useful feature is a built 
in "hexadecimal calculator." With 
it hexadecimal numbers may be 
added or subtracted very simply. 
This makes programming a bit 
easier for those of us who can't easi- 
ly do hexadecimal arithmetic. 

One of Tasmon's features that is 
especially handy and unique is the 
user-definable function. Pressing 
one key ("U") initiates a function 
that is defined only once. 

Input and output are supported 
with TASMON. Output of 
disassembled listings, loading and 
saving of programs, etc. are all sim- 
ple to do. The entire screen may be 
saved in memory, or it may be saved 
by printing it out on the printer. 

The ability to "view" a program 
is also available. It allows you to ex- 
amine the starting and ending ad- 
dresses of a particular program, in 
addition to the filename and entry 
point. 

Breakpoints are important to a 
monitor program, since the user 
might want to stop a Machine 
Language program in one particular 
place to examine what has occured 
in the registers up to that, point. 
TASMON gives the user the power 
to set from one to nine breakpoints 
and the abihty to "single step" a 
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Machine Language program or to 
trace a program at any one of eight 
different, user selected speeds. 

Even though I've been talking a 
lot about Machine Language pro- 
grams, I'd like to make it clear that 
TASMON can also view the actions 
of BASIC programs. It is 
fascinating to watch the BASIC in- 
terpreter in action. 

I think TASMON'S power speaks 
for itself. I tried this program 
because it was mentioned very brief- 
ly in 80-Microcomputing as being an 
excellent monitor. I'm not sorry 
that I bought it, and I hope that my 
review will encourage others to try 
TASMON . The program is 
sophisticated and well thought out. 
The commands are very well de- 
signed and the documentation is 
thorough. The reference card is a 
nice addition. It is a handy, often 
used source of information. I get the 
feeling that the author, Bruce 
Hansen, wanted to create a better 
monitor and I believe he has suc- 
ceeded; I congratulate him. 

TASMON s price is a Httle higher 
than that of most other monitors, 
but since TASMON is the most 
powerful TRS-80® monitor I have 
ever seen, it is, in my opinion, well 
worth the money. 

I can't recommend TASMON 
highly enough, but I do have one 
complaint — the tape. It's annoying 
to constantly get bad tapes from 
The Alternate Source. Unfortunate- 
ly, their tape duplicating procedure 
is faulty and should be corrected. I 
have heard that Charles and Joni at 
The Alternate Source are already 
working on this. With the great pro- 
grams, such as Tasmon, that they 
are marketing. The Alternate 
Source should sell their customers 
dependable program copies. 

Every serious TRS-80® Machine 
Language and BASIC programmer 
should consider purchasing 
TASMON to become a part of their 
"tool box." It's usefulness should 
prove it to be well worth the price. 

© 

Ml pT 



/ 




AFl- 



\ 



i" 



'-to* 




MPL 




by Phelps Gates 



Now a high-level, scientific programming language for the home computer that doesn't cost $200 or $300. The power of 
this language is In Its strong mathematical operations, especially with regard to matrices and vectors. Programs requiring 
matrix multiplication or other matrix problem solving that would require hours of programming time in BASIC are solved 
quicltiy and with minimal effort in APL 

To aid in learning APL, lessons are Included on the disl<. Starting from the basics, you are brought step by step through 
the various programming techniques Involved with APL. These lessons act as a tutor which will have you "talking APL" In 
no time. Also available Is the book, "APL: An Interactive Approach," which reinforces many of the examples given In the 
lessons and provides additional Insight Into APL programming. 

FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOAD workspace on disk; )COPY other workspaces into cur- 
rent ones; Return to DOS for directory or commands without losing your workspace; Send output to lineprlnter; Five 
workspaces of lessons Included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; Easy 
editing within FUNCTION lines; Latent expresslons{FUNCTION can "come up running" when loaded); Tracing of function 
execution; Real-time clock; User-control of random link; Workspace is 25587 bytes (in 48K machine); Arrays may have up to 
63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands; Absolute value, add, and assign, branch, catenate, ceiling, chr$/asc, circular, 
combinational, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, floor, for- 
mat, grade down, grade up, greater, greater/equal. Index generator. Indexing, index of. Inter product, label, less, less/equal, 
logarithm, maximum, member, minimum, multiple, nand, negate, nor, not, not equal, or, outer product, peek, poke, quad, 
quote quad, random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, system, subtract, 
take, transposition. 

SPECIFICATIONS 

Minimum system requirements: 32K disk system {48K recommended) includes APL-80, Five workshapes of lessons, in- 
struction manual $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 

Transpositions, format, and inner product not Implemented. Reduced domain for some functions, 6 digit accuracy. 
$14.95 on cassette 

LIMITATIONS 

Due to the absence of the special APL character set on the TRS-80 , APL-80 uses shifted letters to represent the various APL characters. In addition to the keyboard 
limitations, lamination, domino, and matrls Inverse are not Implemented but can be derived with user-defined functions. Multiple specifications must be split Into 
two statements unless the left-hand assignment Is to a quad. This also applies to Implied multiple specifications. Reduction and reshape (p) are not permitted for 
empty arguments; the argument of add/drop may not be scalar; empty Indices are not permitted. A quad (q) can't be typed In response to a quad (nor can the name 
of a function which Itself gets Input from a quad). Quote-quad (m) Is permitted. No more than 32 user functions can be defined In a single workspace and a function 
may not contain more than 255 lines. 

A comment (c) must occupy a separate line: a comment can't follow a function statement on the same line. 
In the tape version, arrays are limited to five (5) dimensions. 
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SIRIUS SOFTWARE, INC. 
10364 Rockingham Drive 
Sacramento, CA 95827 
(916) 366-1195 

It's now evident that Sneakers is one 
of the most popular Apple computer 
games ever! Players and critics aUke con- 
cede that Sneaker's popularity is based 
on it's seemingly endless variety of 
challenges. The game features eight 
separate attacks from some of the most 
animated and colorful characters to ever 
attempt to stomp you into submission. 
Get ready for wave after wave of 
Sneakers, Cyclops, Saucers, Fangs, 
H-Wings, Meteors, Scrambles and 
Scrubs. There are five levels of difficul- 
ty, making Sneakers forty games in one! 

Sneakers requires an Apple II or II + 
computer with 48K and one Apple disk 
drive and is playable with keyboard or 
Apple-compatible paddles and joysticks. 
Sneakers was written in assembly 
language by Mark Turmell. Sneakers is 
now available at your local Apple 
dealers or distributors, or you can order 
direct from Sirius Software. Suggested 
retail price is $29.95. 



C & H VIDEO 

110 West Caracas Avenue 
Hershey, PA 17033 
(717) 533-8480 

Now you can create effective slide 
show presentations for a variety of uses 
with C & H VIDEO'S The •Slide" 
Show, utilizing High-Res graphics and 
20 different, specially created transitions 
between slides. 

Great for business presentations, 
educators, exhibits, lectures, etc.. The 
program has many features including 
automatic advance, time settings, slide 
advance mix option, and the 20 transi- 
tions. It can contain up to 75 slides 
which can be repeated. 

The "Slide" Show works with a 48K 
Apple in DOS 3.3 with one or two disk 
drives and is not copy protected. It is 
compatible with NTSC TV signal pro- 
cessing hardware. It can be ordered 
directly from C & H VIDEO and the 
retail price is $49.95. 



Hypergate Centurion 




SYNERGISTIC SOLAR, INC. 
P.O. Box 560595 
Miami, FL 33156 

Hypergate Centurion and Hypergate 
Patrol are two totally original games for 
the 16K TRS-80® Model I and Model 111 
microcomputers. 

You are the Hypergate Centurion, the 
guardian of the gateway to other gal- 
axies. It is your sworn duty to protect 
the friendly military and cargo 
spaceships as they transit the hypergate. 
You carry out your mis.sion nestled deep 
within the core of the Centurion Base 
Asteroid. You have at your disposal the 
centurion computer, a powerful plasma 
disruptor weapon, and a small but effi- 
cient fleet of patrol ships. 

This is not a simple hand-eye coor- 
dination shoot'um down, but a highly 
sophisticated real time simulation re- 
quiring learned mental skills of decision 
and judgement. 

Some features of Hypergate Cen- 
turion are: a cast of fifty different ob- 
jects displayed in detail; four skill levels, 



from trainee to master; five quarrelsome 
alliances; and a detailed, thirty-two page 
instruction manual. 

In Hypergate Patrol, you command a 
Hypergate Patrol Ship. You must con- 
tend with most of the same situations 
from Hypergate Centurion on a grueling 
ship to ship basis. The Centurion on 
Duty assigns you various missions; from 
rescuing stranded spacecraft to har- 
pooning huge space monsters. You must 
also master the technique of hypergate 
navigation so that you can patrol the 
galaxies of the Local Super Cluster. 

This is an intense, one-player, stop- 
action strategy simulation. It is written 
in BASIC but uses Machine Language 
subroutines for the explosion scenes and 
sound effects. Hypergate Patrol con- 
tains excellent action sounds and action 
graphics, four weapon types, numerous 
command options, and a multitude of 
combat and navigational aids. 

Both games are sold as a set on one 
cassette tape. Disk compatible versions 
are also available. The cassette tape 
retails for $39.95. 



Hypergate Patrol 




ACORN SOFTWARE 
PRODUCTS.INC. 

634 North Carolina Ave., S.E. 
Washington, D.C. 20003 
(202) 544-4259 

Your Family Tree is a comprehensive, 
genealogical program that lets you avoid 
the rigidities of a paper-based family 
tree. It quickly and easily sets up a 
database to hold pertinent information 
about each ancestor including; name, 
date and place of birth, marriage and 
death information, and a comment line. 
Access to information in Your Family 
Tree is virtually unlimited. You have full 
search capabilities on any key field using 
full or partial information. 

Your Family Tree is a genealogy pro- 
gram for the Radio Shack TRS-80® 
Model I and Model III microcomputers. 
It is available on Model I/III compatible 
cassette (16K) or diskette (32K). Model 
III owners with two disk drives use the 
CONVERT utility. This program is 
priced at $29.95. 
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SIRIUS SOFTWARE, INC. 
10364 Rockingham Drive 
Sacramento, CA 95827 
(916) 366-1195 

Beer Run is a delightful, light-headed 
game designed to bring you many hours 
of refreshing fun. The object of Beer 
Run is to catch Artesians. You are a per- 
son at the bottom of the Sirius Building. 
Your task is to look for Artesians by 
climbing up the Sirius Building, then 
transporting, via blimp, to another 
building and climbing back down to the 
ground. Ladders and elevators are used 
to climb. Guzzlers and Bouncers chase 
you in both buildings. 

Written in assembly language by Mark 
Turmell, Beer Run features easy control 
through keyboard, Apple-compatible 
paddles and joysticks, or Sirius Soft- 
ware's Joyport"*^ with ATARI® -type 
joysticks, as well as escape feature for 
temporary halt of game, restart, sound 
toggle on/off, and several different 
levels of play. Beer Run utilizes Apple's 
color, and high resolution graphics at 
their best. 

Beer Run operates on an Apple II or 
II + computer with 48K of memory and 
one Apple disk drive. Beer Run is now 
avaliable and can be ordered directly 
from Sirius Software or through your 
local dealer or distributor. Suggested 
retail price is $29.95. 




THE CORNSOFT GROUP 

6008 North Keystone Avenue 
Indianapolis, IN 46220 

(317)257-3227 

Suddenly your fighter vibrates 
violently. A force field has cut off all 
communication with the Jeteye 
Squadron. In your viewer you see the 
pulsating glow of a space castle. You are 
playing Space Castle, a game with sound 
for a Model I or III TRS-80®. 

It was believed that all of the outposts 
of the warlord Yugdab had been 
destroyed during the Freedom Wars, but 
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the space castle before you is no illusion. 
As you focus your weapons on the or- 
biting armor shields, you realize that 
more is at stake than your puny ex- 
istence. You do, however, place con- 
fidence in the ability of The Source to 
restore your life based on your perfor- 
mance as a Freedom Fighter. If you 
should eventually fail against Yug- 
dab your point score is your only 
satisfaction. 

Be aware of Yugdab's Intelligent 
Mines that patrol the orbiting shields. 
Once they leave the safety of the space 
castle, they will hunt you down Uke a 
Namelran Fox Droid. 

Due to the intense radiation 
emanating from the space castle, your 
short-range viewer is inoperative. Conse- 
quently, you will have to coordinate the 
battle by watching the transmission from 
your scout satellite, Kemosabe. 

Yugdab has been known to attack on- 
ly when his inner armor shield has been 
penetrated and he is never destroyed. He 
can immediately resurrect himself to 
continue the battle. However, the 
reward for making Yugdab enter 
another life system temporarily is 
another ship with which to do battle and 
5(X) points added to your score. 
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ADVANCED EFFORT-SAVER 
PRODUCTS, INC. 
P. O. Box 5001 
Hialeah, FL 33014 
(305) 821-9961 

The Desk Top Video-Printer Stand 
was designed to "save space" and "save 
money" by converting the microcom- 
puter user's present desk or table into a 
specialized, computer work-station. 
Used as a video stand the user's TV sits 
on the Desk Top Video-Printer Stand 
and the microcomputer conveniently 
slides underneath. Work space is con- 
siderably increased and the video screen 
is raised to eye level. 

If used as a printer stand, the user's 
disk drives, tape recorder, other devices 
or fanfold paper slide under the printer 
which rests on the Desk Top Video- 
Printer Stand. This further increases 
usable desk top space while placing all 
components within easy reach. 

The Desk Top Video-Printer Stand is 
compatible with the TRS-80® Color 
Computer or VIDEOTEX, ATARI® 
400 or 800, Apple II or III, TI 99/4 or 
any other Micros/Terminals with 
detachable keyboards. Most small to 
/medium sized printers such as the 
MX-80, MX- 100 or Une Printer VIII 
work well. The Desktop Video-Printer 
Stand features sturdy metal construc- 
tion; colors available are black or beige 
and dimensions are 19.5"W-12" 
D = 6.75"H. It sells for $39.95. 



DP DIRECTORY 
P. O. Box 562 
Bloomfield, CT 06002 

DP Directory, a new data processing 
reference magazine, publishes the Tables 
of Contents of over 100 data processing 
periodicals each month. In addition to 
SoftSide, DP Directory covers dozens of 
data processing magazines dealing with 
hardware, software, systems develop- 
ment, telecommunications, graphics, 
word processing and personal com- 
puting. 12 monthly issues are available 
for $48.00 from DP Directory. 
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COMPU-MATE CORPORATION 

6305 Arizona Avenue 
Los Angeles, CA 90045 
(213) 991-7098 

Intelligent interface modules from 
Compu-Mate will enable the 
ATARI® 800 and 400 personal com- 
puters to accomplish many additional 
personal and business applications. 

The Model CM-WOO Printer Interface 
includes one EIA standard serial port 
(standard synchronous protocol) and 
one 8 bit parallel port (Centronics com- 
patible). Both of these ports are for use 
with standard serial or parallel printers. 
The unit comes with a simple customiza- 
tion program that allows the user to 
tailor special control codes for each 
port. This allows the unit to be used with 
many popular printers. Additional 
features include: Standard baud rates 
from 300 to 38,400, bi-directional com- 
munications for use with modems etc., 
software selectible port addressing, 
automatic powerup compatiblility with 
the ATARI® 825 printer on the parellel 
port and Diablo compatible printer on 
the serial port. 

The CM-1000/V Printer Interface in- 



cludes the CM- 1000 unit described 
above plus an 80 column video display 
generator. This generator enables the 
800 and 400 computers to perform many 
functions such as full page width word 
processing and other tasks requiring an 
80 column instead of a AQ column 
display. Additional features include: full 
96 ASCII character set, upper and lower 
case characters with below the line 
descenders, direct connection to the 800 
and 400 video monitor ports, reverse 
video, software downloadable character 
set, and compatibility with any video 
display capable of 80 columns. 

Features common to both interfaces 
include: no required physical changes to 
computers, both interfaces connect 
directly to the computers' standard 
serial I/O port, no cables to become 
disconnected from the computer, both 
operate under DOS 2. OS and future 
DOS versions, and both have a one year 
warranty. The CM-WOO Printer Inter- 
face is priced at $289.00. The 
CMWOO/V Printer Interface is priced at 
$489.00. A kit (Model CM-IO/V) to 
upgrade the CM-1000 to the CM-1000/V 
(adds video display generator) is 
available for $225.00. 



In an effort to inform our readers of new products, SoftSide welcomes your 
company's input to this section. Send all information to: 

SoftSide Publications 
6 South Street 
Milford, NH 03055 
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BRODERBUND SOFTWARE, INC. 
Business Software Division 
1938 Fourth Street 
San Rafael, CA 94901 
(415) 456-6424 



Broderbund Software, Inc. has re- 
leased a General Ledger with Payables 
program, by Hal Faulkner, which will 
handle all normal journal ledger and 
payable functions for financial ac- 
counting, plus some management ac- 
counting functions. 

General Ledger with Payables has a 
capacity of 2000 ledger accounts, 
unlimited journal entries, 200 open 
payable accounts, 1900 open invoices, 
values up to $9,999,999,999.99, 1000 
checks per disk and user definable ac- 
count numbers up to 10 digits 
(9999.255.255). It prints checks, journal 
audit trails, balance sheets, income 
statements with budgets, history, 
month, year-to-date percentage and 
dollar change, department reports, 
check register and much more. 

The documentation is clearly written 
and segmented with tabs which corre- 
spond to numbered functions on the 
screen. General Ledger with Payables is 
compatible with the Broderbund Payroll 
and Accounts Receivable packages. 

This program requires 64K Apple 
II/II -I- with 16 sector disk controller or 
Apple III, two disk drives, and a printer. 
Suggested retail price is $495.00. 
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AN EDUCATIONAL 
ISSUE FEATURING 
SUCH PROGRAMS AS: 



C.A.T.S. 

(Computer Assisted Testing System) ... an in- 
novative teachers' aid for individualizing student 
testing. 

MENU PLUS 

... an improved menu program allowing easy 
manipulation of disk files for your ATARI®. 

APPLESOFT EXTENSIONS 

... a Machine Language utility to make 
Applesoft more powerful. 



PLUS 



All articles and features will be based on 
education in the world of microcomputing. 
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BOUND TO PLEASE: SoftSide's Deluxe Edition 

Twelve issues of SoftSide — October 1980 to September 1981 



SoftSide is pleased to announce this iimited edition: tweive 
issues sewn into biue bucl^ram. This sturdy library bound 
collection will be available In limited quantities, so order 
yours now. 



The SoftSide Deluxe Edition — $75.00 

Send a checl< or use your MasterCharge/VISA credit card. 
To order write: SoftSide Publications 

6 South Street 

IVIIIford, NH 03055 
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"NEVER 



FORGETS." 



MORE THAN JUST ANOTHER PRETTY HGE. 



Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines— from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 



make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you'd like a copy of this formidable docu- 
ment, for free, just let us know and we'll send you 
one. Because once you know what it takes to make 
an Elephant for ANSI ... 

We think you'll wont us to moke some Elephants 
for you. 



ELEPHANl HEAVY DUTY DISKS. 

Distributed Exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 
Call: toll-free 1-800-343-6833; or in Massachusetts call collect (617) 828-8150. Telex 951-624. 



